home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir45 / shaker11.zip / SHAKER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-09-24  |  58KB  |  2,711 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  BOOLEAN008
  27.     Boolean  BOOLEAN009
  28.     Boolean  BOOLEAN010
  29.     Boolean  BOOLEAN011
  30.     Boolean  BOOLEAN012
  31.     Boolean  BOOLEAN013
  32.     Boolean  BOOLEAN014
  33.     Integer  INTEGER001
  34.     Integer  INTEGER002
  35.     Integer  TINTEGER003(6)
  36.     Integer  TINTEGER004(6)
  37.     Integer  INTEGER005
  38.     Integer  INTEGER006
  39.     Integer  INTEGER007
  40.     Integer  INTEGER008
  41.     Integer  INTEGER009
  42.     Integer  INTEGER010
  43.     Integer  INTEGER011
  44.     Integer  INTEGER012
  45.     Integer  INTEGER013
  46.     Integer  INTEGER014
  47.     Integer  INTEGER015
  48.     Integer  INTEGER016
  49.     Integer  INTEGER017
  50.     Integer  INTEGER018
  51.     Integer  INTEGER019
  52.     Integer  INTEGER020
  53.     Integer  INTEGER021
  54.     Integer  INTEGER022
  55.     Integer  INTEGER023
  56.     Integer  TINTEGER024(1)
  57.     Integer  INTEGER025
  58.     Integer  INTEGER026
  59.     Integer  INTEGER027
  60.     Integer  INTEGER028
  61.     Integer  INTEGER029
  62.     Integer  INTEGER030
  63.     Integer  INTEGER031
  64.     Integer  INTEGER032
  65.     Integer  INTEGER033
  66.     Integer  INTEGER034
  67.     Integer  INTEGER035
  68.     Integer  INTEGER036
  69.     Integer  INTEGER037
  70.     Integer  INTEGER038
  71.     Integer  INTEGER039
  72.     Integer  INTEGER040
  73.     Real     REAL001
  74.     String   STRING001
  75.     String   STRING002
  76.     String   STRING003
  77.     String   STRING004
  78.     String   STRING005
  79.     String   STRING006
  80.     String   STRING007
  81.     String   STRING008
  82.     String   STRING009
  83.     String   STRING010
  84.     String   STRING011
  85.     String   STRING012
  86.     String   STRING013
  87.     String   STRING014
  88.     String   STRING015
  89.     String   STRING016
  90.     String   STRING017
  91.     String   STRING018
  92.     String   STRING019
  93.     String   STRING020
  94.     String   STRING021
  95.     String   STRING022
  96.     String   STRING023
  97.     String   STRING024
  98.     String   STRING025
  99.     String   STRING026
  100.     String   STRING027
  101.     String   STRING028
  102.     String   STRING029
  103.     String   STRING030
  104.     String   TSTRING031(1)
  105.     String   TSTRING032(1)
  106.     String   STRING033
  107.  
  108.     BOOLEAN002 = 0
  109.     BOOLEAN004 = 0
  110.     INTEGER028 = 0
  111.     BOOLEAN003 = 0
  112.     INTEGER027 = 0
  113.     INTEGER026 = 0
  114.     INTEGER007 = 0
  115.     INTEGER002 = 0
  116.     REAL001 = 0
  117.     BOOLEAN010 = 0
  118.     BOOLEAN008 = 0
  119.     INTEGER023 = 0
  120.     BOOLEAN011 = 0
  121.     INTEGER017 = 2
  122.     INTEGER011 = 1000
  123.     INTEGER012 = 100
  124.     INTEGER013 = 10
  125.     INTEGER014 = 100
  126.     STRING017 = "PORT_ORCHARD"
  127.     STRING001 = Chr(13)
  128.     BOOLEAN009 = 1
  129.     BOOLEAN012 = 0
  130.     BOOLEAN013 = 0
  131.     BOOLEAN014 = 0
  132.     BOOLEAN001 = 0
  133.     If (AnsiOn() == 0) Goto LABEL024
  134.     RdUNet PcbNode()
  135.     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Playing SHAKER!", ""
  136.     BOOLEAN005 = 1
  137.     GetUser
  138.     STRING027 = U_Name()
  139.     STRING028 = Date()
  140.     If (Exist(PPEPath() + "SHAKER.DAT")) Then
  141.         FOpen 1, PPEPath() + "SHAKER.DAT", 2, 3
  142.         FGet 1, INTEGER020
  143.         Redim TSTRING031, INTEGER020 + 1
  144.         Redim TINTEGER024, INTEGER020 + 1
  145.         Redim TSTRING032, INTEGER020 + 1
  146.         For INTEGER033 = 1 To INTEGER020
  147.             FGet 1, STRING030
  148.             If (InStr(STRING030, STRING027)) Then
  149.                 BOOLEAN005 = 0
  150.                 Tokenize STRING030
  151.                 GetToken INTEGER005
  152.                 GetToken STRING029
  153.                 GetToken STRING017
  154.                 GetToken INTEGER014
  155.                 GetToken INTEGER012
  156.                 GetToken INTEGER013
  157.                 GetToken INTEGER011
  158.                 GetToken INTEGER026
  159.                 GetToken INTEGER027
  160.                 GetToken INTEGER028
  161.             Endif
  162.         Next
  163.         FClose 1
  164.     Else
  165.         FCreate 1, PPEPath() + "SHAKER.DAT", 2, 3
  166.         INTEGER020 = 1
  167.         FPutLn 1, INTEGER020
  168.         FClose 1
  169.     Endif
  170.     FOpen 7, PPEPath() + "VICTIMS.DAT", 2, 3
  171.     FGet 7, STRING007
  172.     FGet 7, STRING008
  173.     FGet 7, STRING009
  174.     FGet 7, STRING010
  175.     FGet 7, STRING011
  176.     FGet 7, STRING012
  177.     FGet 7, STRING013
  178.     FGet 7, STRING014
  179.     FGet 7, STRING015
  180.     FGet 7, STRING016
  181.     FGet 7, INTEGER001
  182.     FClose 7
  183.     If (STRING028 == STRING029) Then
  184.         PrintLn "@CLS@"
  185.         Newlines 3
  186.         PrintLn "        @X0FSorry, but you may play SHAKER only ONCE per day . . . "
  187.         Newlines 4
  188.         Wait
  189.     Else
  190.         If (BOOLEAN001 == 0) Then
  191.             Cls
  192.             Newlines 5
  193.             PrintLn "   @X0DREGISTERING SHAKER means you don't have to LOOK at all these dots!!!"
  194.             Print "   "
  195.             For INTEGER029 = 1 To 75
  196.                 Print "@X0E."
  197.                 Delay 2
  198.             Next
  199.         Endif
  200.         PrintLn "@CLS@"
  201.         PrintLn "   "
  202.         PrintLn "          @X0E┌@X4E█▓▒░░░@X0E┌@X4E█▓▒░░░░░@X0E┌@X4E█▓▒░░░░░@X0E @X4E█▓▒░░░░░░@X0E┌@X4E█▓▒@X0E  @X4E░░░@X07"
  203.         PrintLn "          @X0E│@X4E█▓▒@X0E   │@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E  @X4E░░░@X0E   │@X4E░░░@X0E   │@X4E█▓▒@X0E  @X4E░░░@X07"
  204.         PrintLn "          @X0E│@X4E█▓▒░░░@X0E│@X4E█▓▒░░░░░@X0E│@X4E█▓▒░░░░░@X0E   │@X4E░░░@X0E   │@X4E█▓▒░░░░░@X07"
  205.         PrintLn "          @X0E│@X4E█▓▒@X0E   │@X4E█▓▒@X0E  @X4E░░░@X0E│█▓▒@X0E @X4E░░░@X0E    │@X4E░░░@X0E   │@X4E█▓▒@X0E  @X4E░░░@X07"
  206.         PrintLn "          @X0E└@X4E█▓▒░░░@X0E└@X4E█▓▒@X0E  @X4E░░░@X0E└█▓▒@X0E @X4E░░░░@X0E   └@X4E░░░@X0E   └@X4E█▓▒@X0E  @X4E░░░@X07"
  207.         PrintLn "   "
  208.         PrintLn "                      @X0E┌─@X4E▓▒░░░░@X0E ┌@X4E█▓▒@X0E  @X4E░░░@X0E┌@X4E█▓▒░░░░░@X0E┌@X4E█▓▒@X0E  @X4E░░░@X0E┌@X4E█▓▒░░░░@X0E"
  209.         PrintLn "                      @X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E    "
  210.         PrintLn "                      @X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒░░░░░@X0E│@X4E█▓▒░░░░░@X0E│@X4E█▓▒░░░@X0E "
  211.         PrintLn "                      @X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E  @X4E░░░@X0E│@X4E█▓▒@X0E @X4E░░░@X0E │@X4E█▓▒@X0E    "
  212.         PrintLn "                      @X0E└─@X4E▓▒░░░░@X0E └@X4E█▓▒░░░░░@X0E└@X4E█▓▒@X0E  @X4E░░░@X0E└@X4E█▓▒@X0E @X4E░░░░@X0E└@X4E█▓▒░░░░@X0E"
  213.         PrintLn "                              @X4E░@X07"
  214.         PrintLn "                        @X09PUBLIC release version-SHAREWARE"
  215.         PrintLn "  @X20┌───────────────────────────────────────────────────────────────────────@X2F┐@X07"
  216.         PrintLn "  @X20│ @X21A Text-Adventure game from Jim Coleman III, author of the QUAKE door! @X2F│@X07"
  217.         PrintLn "  @X20│ @X2E          The NASA MLP BBS of Port Orchard, WA @X2F(206)871-8089          @X2F│@X07"
  218.         PrintLn "  @X20└@X2F───────────────────────────────────────────────────────────────────────┘@X07"
  219.         PrintLn "   "
  220.         InputStr "@X0E(@X0FI@X0E)@X02ntroduction, @X0E(@X0FP@X0E)@X02lay or @X0E(@X0FQ@X0E)@X02uit ", STRING005, 12, 1, "IPQ", 2 + 4 + 8
  221.         If (STRING005 == "Q") Goto LABEL025
  222.         If (STRING005 == "I") DispFile PPEPath() + "INTRO", 0
  223.         If (STRING005 == "P") Then
  224.             Goto LABEL001
  225.         Endif
  226.         INTEGER005 = (INTEGER011 + INTEGER012 + INTEGER013 + INTEGER026 + INTEGER014) / 10 - 1
  227.         If (INTEGER005 <= 1) Then
  228.             INTEGER011 = 1000
  229.             INTEGER012 = 100
  230.             INTEGER013 = 10
  231.             INTEGER014 = 100
  232.         Endif
  233.         STRING017 = "PORT_ORCHARD"
  234.         If (INTEGER014 <= 10) INTEGER014 = 20
  235.         :LABEL001
  236.         INTEGER029 = 15
  237.         If (INTEGER026 > 0) BOOLEAN004 = 1
  238.         If (INTEGER005 >= INTEGER001) Goto LABEL020
  239.         If (INTEGER013 <= 0) INTEGER013 = 0
  240.         If (INTEGER012 <= 0) INTEGER012 = 0
  241.         BOOLEAN006 = 0
  242.         If ((BOOLEAN008 == 1) && (INTEGER023 == 0)) Gosub LABEL011
  243.         If (INTEGER011 <= 0) Then
  244.             Print "@CLS@"
  245.             AnsiPos 2, 4
  246.             BOOLEAN010 = 1
  247.             PrintLn "@X0EYou do not have enough money to continue play."
  248.             AnsiPos 2, 6
  249.             PrintLn "@X0DYou'll have to get lucky or wait until the game rerolls."
  250.             AnsiPos 2, 7
  251.             PrintLn "@X09Or REALLY sweet-talk the Sysop!"
  252.             AnsiPos 10, 21
  253.             Wait
  254.             Gosub LABEL024
  255.         Endif
  256.         If (BOOLEAN011 == 1) Goto LABEL024
  257.         DispFile PPEPath() + "SHAKMENU", 0
  258.         INTEGER005 = (INTEGER011 + INTEGER012 + INTEGER013 + INTEGER026 + INTEGER014) / 10 - 1
  259.         If (INTEGER014 <= 0) INTEGER014 = 0
  260.         If (INTEGER005 <= 0) Goto LABEL023
  261.         If (BOOLEAN009 == 1) Gosub LABEL009
  262.         AnsiPos 64, 3
  263.         Print "@X5F"
  264.         Print INTEGER005
  265.         AnsiPos 64, 6
  266.         Print "@X1F"
  267.         Print "@TIMELEFT@"
  268.         AnsiPos 73, 19
  269.         Print "@X1F"
  270.         Print INTEGER027
  271.         AnsiPos 64, 7
  272.         Print "@X1F"
  273.         Print INTEGER011
  274.         AnsiPos 65, 19
  275.         Print "@X1F"
  276.         Print INTEGER026
  277.         AnsiPos 64, 8
  278.         Print "@X1F"
  279.         Print INTEGER012
  280.         AnsiPos 64, 9
  281.         Print "@X1F"
  282.         Print INTEGER013
  283.         AnsiPos 64, 10
  284.         Print "@X1F"
  285.         Print INTEGER014
  286.         AnsiPos 64, 11
  287.         Print "@X1F"
  288.         Print STRING017
  289.         AnsiPos 64, 12
  290.         Print "@X1F"
  291.         Print STRING018
  292.         AnsiPos 21, 19
  293.         Print "@X1F"
  294.         Print REAL001
  295.         AnsiPos 48, 19
  296.         Print "@X1F"
  297.         Print INTEGER023
  298.         Select Case (BOOLEAN001)
  299.             Case 1
  300.                 AnsiPos 60, 15
  301.                 Print "@X5EREGISTERED"
  302.             Case 0
  303.                 AnsiPos 59, 15
  304.                 Print "@X5EUNREGISTERED"
  305.         End Select
  306.         Print "@X07"
  307.         AnsiPos 0, 22
  308.         PrintLn "    "
  309.         InputStr "@X0E[ @X0DSHAKER! @X0E] @X04■@X0E(@X0FP@X0E)@X0Elayer Scores@X04■ @X04 ■@X0E(@X0FR@X0E)@X0Eedraw@X04■ @X04■@X0E(@X0FQ@X0E)@X0Euit@X04■ @X04■@X0E(@X0FI@X0E)@X0Enstructions@X04■", STRING006, 12, 1, "√ABCDGHILMPQRSTZ.", 2 + 4 + 8
  310.         If (STRING006 == "√") Then
  311.             INTEGER026 = 20000
  312.             INTEGER013 = 100
  313.             INTEGER012 = 500
  314.             INTEGER023 = 20
  315.             Wait
  316.         Endif
  317.         If (STRING006 == "") Goto LABEL001
  318.         If (STRING006 == "Q") Goto LABEL024
  319.         If (STRING006 == "A") Goto LABEL012
  320.         If (STRING006 == "B") Goto LABEL017
  321.         If (STRING006 == "C") Goto LABEL004
  322.         If (STRING006 == "D") Goto LABEL006
  323.         If (STRING006 == "G") Goto LABEL002
  324.         If (STRING006 == "H") Then
  325.             AdjTime -1
  326.             DispFile PPEPath() + "HELPMAIN", 0
  327.         Endif
  328.         If (STRING006 == "I") DispFile PPEPath() + "INSTRUCT", 0
  329.         If (STRING006 == "L") Goto LABEL013
  330.         If (STRING006 == "M") Goto LABEL008
  331.         If (STRING006 == "P") Then
  332.             If (BOOLEAN005 == 1) Then
  333.                 Print "@CLS@"
  334.                 Newlines 4
  335.                 PrintLn "Why don't you try playing a bit first???"
  336.                 Newlines 4
  337.                 Wait
  338.             Endif
  339.             Goto LABEL001
  340.             Gosub LABEL021
  341.             Gosub LABEL022
  342.         Endif
  343.         If (STRING006 == "T") Goto LABEL019
  344.         If (STRING006 == "Z") Then
  345.             INTEGER011 = 0
  346.             INTEGER014 = 0
  347.             INTEGER012 = 0
  348.         Endif
  349.         Goto LABEL001
  350.         Return
  351.         :LABEL002
  352.         Cls
  353.         INTEGER032 = 0
  354.         INTEGER036 = 0
  355.         INTEGER037 = 0
  356.         STRING002 = "Y"
  357.         If (BOOLEAN001 == 0) Then
  358.             Cls
  359.             Newlines 5
  360.             PrintLn "   @X0APlease help your hard-working SysOp register this fine game.  Only 10!"
  361.             PrintLn "   @X0DREGISTERING  SHAKER  means you don't have to LOOK at all these dots!!!"
  362.             Print "   "
  363.             For INTEGER029 = 1 To 75
  364.                 Print "@X0E."
  365.                 Delay 2
  366.             Next
  367.         Endif
  368.         INTEGER036 = Random(39) + 1
  369.         If (INTEGER036 == 32) Then
  370.             INTEGER026 = 0
  371.             INTEGER011 = INTEGER011 / 2
  372.             INTEGER014 = INTEGER014 / 2
  373.             INTEGER012 = 100
  374.             INTEGER027 = 0
  375.             INTEGER013 = 1
  376.             DispFile PPEPath() + "BANKROB", 0
  377.             Wait
  378.             Goto LABEL001
  379.         Endif
  380.         If ((INTEGER026 < 200) && (BOOLEAN004 == 1)) Then
  381.             PrintLn "But you don't even HAVE that much!!!  Get out of here, you crook!"
  382.             Newlines 5
  383.             Wait
  384.             Goto LABEL001
  385.         Endif
  386.         If ((INTEGER026 >= 15000) && (BOOLEAN004 == 1)) Then
  387.             Newlines 5
  388.             PrintLn "We deduct a 10% HAZARD FEE from all accounts over $15,000."
  389.             INTEGER032 = INTEGER027 / 10
  390.             INTEGER027 = INTEGER027 - INTEGER032
  391.             INTEGER008 = INTEGER026 / 10
  392.             INTEGER026 = INTEGER026 - INTEGER008
  393.             Newlines 5
  394.             Wait
  395.         Else
  396.             If ((INTEGER026 == 0) && (BOOLEAN004 == 1)) Then
  397.                 PrintLn "This brings your account to ZERO and closes it."
  398.                 BOOLEAN004 = 0
  399.                 Newlines 5
  400.                 Wait
  401.                 Goto LABEL001
  402.             Endif
  403.             If (BOOLEAN004 == 0) Then
  404.                 DispFile PPEPath() + "THEBANK", 0
  405.                 AnsiPos 4, 16
  406.                 Print "@X0AOur records indicate you do not have an account.  @X0BYou'll need 1500.00 to"
  407.                 AnsiPos 4, 17
  408.                 Print "@X0Bopen an account at this institution."
  409.                 AnsiPos 4, 19
  410.                 InputYN "@X1EWould you like to open an account with us today?", STRING002, 14
  411.                 If (STRING002 == "") Goto LABEL001
  412.                 If (STRING002 == "N") Goto LABEL001
  413.                 If (STRING002 == "Y") Then
  414.                     If (INTEGER011 <= 1500) Then
  415.                         AnsiPos 4, 20
  416.                         Print "@X0EWe're sorry, you don't have enough money to open an account today."
  417.                         AnsiPos 10, 21
  418.                         Wait
  419.                         Goto LABEL001
  420.                     Endif
  421.                     Cls
  422.                     Newlines 4
  423.                     PrintLn "@X0EWe've opened your account with $1000.  The extra $500 helps pay our"
  424.                     PrintLn "exorbitant security costs to protect from looters "
  425.                     PrintLn "running amok in our shattered city."
  426.                     Newlines 2
  427.                     Wait
  428.                     INTEGER011 = INTEGER011 - 1500
  429.                     INTEGER026 = 1000
  430.                     BOOLEAN004 = 1
  431.                     Goto LABEL003
  432.                 Endif
  433.             Endif
  434.         Endif
  435.         :LABEL003
  436.         DispFile PPEPath() + "THEBANK", 0
  437.         BOOLEAN003 = 1
  438.         INTEGER037 = 0
  439.         AnsiPos 1, 15
  440.         Print "@X0DYour Account: @X09Cash: @X03"
  441.         Print INTEGER026
  442.         Print "@X09   Medicines: @X03"
  443.         Print INTEGER027
  444.         AnsiPos 1, 16
  445.         Print "@X0BWhat service@X03(@X0Bs@X03) @X0Bmay we provide for you today?"
  446.         AnsiPos 1, 17
  447.         Print "@X03(@X0EDC@X03)@X04eposit Cash, @X03(@X0EDM@X03)@X04eposit Medicine"
  448.         AnsiPos 1, 18
  449.         InputStr "@X03(@X0EWC@X03)@X04ithdraw Cash, @X03(@X0EWM@X03)@X04ithdraw Medicine, @X03(@X0EE@X03)@X04xit Bank", STRING004, 14, 2, "CEWDTM", 2 + 4 + 8
  450.         If (STRING004 == "") Goto LABEL001
  451.         If (STRING004 == "E") Goto LABEL001
  452.         If (STRING004 == "WM") Then
  453.             AnsiPos 1, 19
  454.             PrintLn "@X0EWithdraw how much medicine today?"
  455.             Print "@X0DYou have @X0F"
  456.             Print INTEGER027
  457.             InputInt " @X0Dvials available to you", INTEGER037, 11
  458.             If (INTEGER037 > INTEGER027) Then
  459.                 AnsiPos 1, 21
  460.                 PrintLn "What is this, a robbery?  Get lost!"
  461.                 AnsiPos 10, 22
  462.                 Wait
  463.                 Goto LABEL001
  464.             Endif
  465.             INTEGER027 = INTEGER027 - INTEGER037
  466.             INTEGER013 = INTEGER013 + INTEGER037
  467.             Goto LABEL003
  468.         Endif
  469.         If (STRING004 == "WC") Then
  470.             AnsiPos 1, 19
  471.             PrintLn "@X0EWithdraw how much money today?"
  472.             Print "@X0DYou have @X0F"
  473.             Print INTEGER026
  474.             InputInt " @X0Ddollars available to you", INTEGER037, 11
  475.             If (INTEGER037 > INTEGER026) Then
  476.                 AnsiPos 1, 21
  477.                 PrintLn "What is this, a robbery?  Get lost!"
  478.                 AnsiPos 10, 22
  479.                 Wait
  480.                 Goto LABEL001
  481.             Endif
  482.             INTEGER026 = INTEGER026 - INTEGER037
  483.             INTEGER011 = INTEGER011 + INTEGER037
  484.             Goto LABEL003
  485.         Endif
  486.         If (STRING004 == "DM") Then
  487.             AnsiPos 1, 19
  488.             PrintLn "@X0EDeposit how much medicine today?"
  489.             Print "@X0DYou have @X0F"
  490.             Print INTEGER013
  491.             InputInt " @X0Dvials available to you", INTEGER037, 11
  492.             If (INTEGER037 > INTEGER013) Then
  493.                 AnsiPos 1, 21
  494.                 PrintLn "You don't HAVE that much medicine!  Wake up!"
  495.                 AnsiPos 10, 22
  496.                 Wait
  497.                 Goto LABEL003
  498.             Endif
  499.             INTEGER027 = INTEGER027 + INTEGER037
  500.             INTEGER013 = INTEGER013 - INTEGER037
  501.             Goto LABEL003
  502.         Endif
  503.         If (STRING004 == "DC") Then
  504.             AnsiPos 1, 19
  505.             PrintLn "@X0EDeposit how much money today?"
  506.             Print "@X0DYou have @X0F"
  507.             Print INTEGER011
  508.             InputInt " @X0Ddollars available to you", INTEGER037, 11
  509.             If (INTEGER037 > INTEGER011) Then
  510.                 AnsiPos 1, 21
  511.                 PrintLn "You don't HAVE that much money!  Wake up!"
  512.                 AnsiPos 10, 22
  513.                 Wait
  514.                 Goto LABEL003
  515.             Endif
  516.             INTEGER026 = INTEGER026 + INTEGER037
  517.             INTEGER011 = INTEGER011 - INTEGER037
  518.             Goto LABEL003
  519.         Endif
  520.         AnsiPos 10, 22
  521.         Wait
  522.         Goto LABEL001
  523.         :LABEL004
  524.         If (BOOLEAN014 == 1) Then
  525.             AnsiPos 2, 8
  526.             Print "                                    "
  527.             AnsiPos 2, 8
  528.             Print "@X8EYou are already AT the Quake Site!"
  529.             INTEGER014 = 10
  530.             AnsiPos 10, 21
  531.             Wait
  532.             Goto LABEL001
  533.         Endif
  534.         If ((STRING017 <> STRING018) && (INTEGER018 >= 101)) Then
  535.             AnsiPos 2, 4
  536.             Print "@X0EI'd suggest FLYING to your destination."
  537.             INTEGER014 = 0
  538.             AnsiPos 10, 21
  539.             Wait
  540.             Goto LABEL001
  541.         Endif
  542.         INTEGER031 = Random(9) + 1
  543.         Select Case (INTEGER031)
  544.             Case 1
  545.                 INTEGER010 = 10
  546.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  547.             Case 2
  548.                 INTEGER010 = 20
  549.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  550.             Case 3
  551.                 INTEGER010 = 30
  552.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  553.             Case 4
  554.                 INTEGER010 = 40
  555.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  556.             Case 5
  557.                 INTEGER010 = 50
  558.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  559.             Case 6
  560.                 INTEGER010 = 60
  561.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  562.             Case 7
  563.                 INTEGER010 = 70
  564.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  565.             Case 8
  566.                 INTEGER010 = 80
  567.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  568.             Case 9
  569.                 INTEGER010 = 90
  570.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  571.             Case 10
  572.                 INTEGER010 = 100
  573.                 INTEGER009 = (INTEGER010 * INTEGER017) / 2
  574.         End Select
  575.         AnsiPos 2, 6
  576.         Print "@X0FHop on in.  I'll take you to the"
  577.         AnsiPos 2, 7
  578.         Print "@X0Fquake ravaged areas."
  579.         AnsiPos 2, 8
  580.         Print "@X0EI'll try not to charge much (snicker)."
  581.         AnsiPos 2, 12
  582.         Print "@X0FMiles = @X02", INTEGER010, ""
  583.         AnsiPos 2, 13
  584.         Print "@X0FFee = @X02", INTEGER009, ""
  585.         AnsiPos 2, 9
  586.         InputStr "@X0DYa wanna dicker over the fee a bit?", STRING003, 12, 1, "NY", 2 + 4 + 8
  587.         If (STRING003 == "") Goto LABEL004
  588.         If (STRING003 == "Y") Then
  589.             BOOLEAN014 = 1
  590.             INTEGER029 = Random(9) + 1
  591.             If (INTEGER029 == 1) Then
  592.                 AnsiPos 2, 10
  593.                 Print "@X0FOkay, I'll cut the fare in half!"
  594.                 INTEGER009 = INTEGER009 / 2
  595.                 INTEGER011 = INTEGER011 - INTEGER009
  596.                 STRING017 = STRING018
  597.                 INTEGER014 = INTEGER014 + 40
  598.                 AnsiPos 10, 22
  599.                 Wait
  600.                 Goto LABEL005
  601.             Endif
  602.             If (INTEGER029 == 2) Then
  603.                 AnsiPos 2, 10
  604.                 Print "@X0FOK, but don't EVER ride with me again!"
  605.                 INTEGER011 = INTEGER011 - INTEGER009
  606.                 INTEGER014 = INTEGER014 + 30
  607.                 STRING017 = STRING018
  608.                 AnsiPos 10, 22
  609.                 Wait
  610.                 Goto LABEL001
  611.                 Goto LABEL005
  612.             Endif
  613.             If (INTEGER029 == 3) Then
  614.                 AnsiPos 2, 10
  615.                 Print "@X09I hope you get Thud Rootered, CHEAPSKATE!"
  616.                 INTEGER014 = 50
  617.                 STRING017 = STRING018
  618.                 INTEGER011 = INTEGER011 - INTEGER009
  619.                 AnsiPos 10, 22
  620.                 Wait
  621.                 Goto LABEL005
  622.             Endif
  623.             If (INTEGER029 == 4) Then
  624.                 AnsiPos 2, 10
  625.                 Print "@X0DFor that, I DOUBLE your fee!"
  626.                 STRING017 = STRING018
  627.                 INTEGER009 = INTEGER009 * 2
  628.                 INTEGER011 = INTEGER011 - INTEGER009
  629.                 INTEGER014 = 25
  630.                 AnsiPos 10, 22
  631.                 Wait
  632.                 Goto LABEL005
  633.             Endif
  634.             If (INTEGER029 == 5) Then
  635.                 AnsiPos 2, 10
  636.                 Print "@X0EI'll take you there for FREE!"
  637.                 STRING017 = STRING018
  638.                 AnsiPos 10, 21
  639.                 Wait
  640.                 Goto LABEL005
  641.             Endif
  642.             If (INTEGER029 == 6) Then
  643.                 AnsiPos 2, 10
  644.                 Print "@X0AYou find 20 medicines on the cab floor!"
  645.                 INTEGER011 = INTEGER011 - INTEGER009
  646.                 INTEGER013 = INTEGER013 + 20
  647.                 STRING017 = STRING018
  648.                 AnsiPos 10, 21
  649.                 Wait
  650.                 Goto LABEL005
  651.             Endif
  652.             If (INTEGER029 == 7) Then
  653.                 AnsiPos 2, 10
  654.                 Print "@X0BThe cabbie robs money from you!"
  655.                 INTEGER011 = 200
  656.                 STRING017 = STRING018
  657.                 AnsiPos 10, 21
  658.                 Wait
  659.                 Goto LABEL005
  660.             Endif
  661.             If (INTEGER029 == 8) Then
  662.                 AnsiPos 2, 10
  663.                 Print "@X0EYou find a winning lotto ticket in the cab!"
  664.                 INTEGER011 = INTEGER011 + 1200
  665.                 STRING017 = STRING018
  666.                 AnsiPos 10, 21
  667.                 Wait
  668.                 Goto LABEL005
  669.             Endif
  670.             If (INTEGER029 == 9) Then
  671.                 AnsiPos 2, 10
  672.                 Print "@X0BYou SCORE with the cabbie on the way!"
  673.                 STRING017 = STRING018
  674.                 INTEGER012 = INTEGER012 * 2
  675.                 AnsiPos 10, 21
  676.                 Wait
  677.                 Goto LABEL005
  678.             Endif
  679.             If (INTEGER029 == 10) Then
  680.                 AnsiPos 23, 9
  681.                 Print "@X20  ┌────────────────────────────@X2F┐  @X07"
  682.                 AnsiPos 23, 10
  683.                 Print "@X20  │@X21 Ah NUTS! A flat tire. Well @X2F│  @X08██@X07"
  684.                 AnsiPos 23, 11
  685.                 Print "@X20  │@X21 I'll keep yer money  & you @X2F│  @X08██@X07"
  686.                 AnsiPos 23, 12
  687.                 Print "@X20  │@X21 just lost some experience. @X2F│  @X08██@X07"
  688.                 AnsiPos 23, 13
  689.                 Print "@X20  │@X21May wanna call  another cab!@X2F│  @X08██@X07"
  690.                 AnsiPos 23, 14
  691.                 Print "@X20  └@X2F────────────────────────────┘  @X08██@X07"
  692.                 AnsiPos 23, 15
  693.                 Print "@X08                           █████████@X07"
  694.                 INTEGER014 = INTEGER014 / 2
  695.                 INTEGER012 = INTEGER012 - 10
  696.                 BOOLEAN014 = 0
  697.                 INTEGER011 = INTEGER011 - INTEGER009
  698.                 AnsiPos 10, 21
  699.                 Wait
  700.                 Goto LABEL001
  701.             Endif
  702.             :LABEL005
  703.             AnsiPos 23, 11
  704.             Print "@X20  ┌────────────────────────────@X2F┐  @X07"
  705.             AnsiPos 23, 12
  706.             Print "@X20  │@X2E  Here you are! @X21Takin' yer  @X2F│  @X08██@X07"
  707.             AnsiPos 23, 13
  708.             Print "@X20  │@X21money is indeed a  pleasure!@X2F│  @X08██@X07"
  709.             AnsiPos 23, 14
  710.             Print "@X20  └@X2F────────────────────────────┘  @X08██@X07"
  711.             AnsiPos 23, 15
  712.             Print "                           @X08█████████@X07"
  713.             AnsiPos 10, 21
  714.             Wait
  715.             Goto LABEL001
  716.         Endif
  717.         If (STRING003 == "N") Then
  718.             BOOLEAN014 = 1
  719.             INTEGER011 = INTEGER011 - INTEGER009
  720.             STRING017 = STRING018
  721.             AnsiPos 2, 10
  722.             Print "@X0EHere you go, the Quake site.  Be careful!"
  723.             AnsiPos 10, 21
  724.             Wait
  725.             Goto LABEL001
  726.         Endif
  727.         AnsiPos 10, 21
  728.         Wait
  729.         Goto LABEL001
  730.         Return
  731.         :LABEL006
  732.         If (BOOLEAN014 == 0) Then
  733.             AnsiPos 2, 6
  734.             Print "@X0EThere IS no damage here!"
  735.             AnsiPos 2, 7
  736.             Print "@X0FYou need to travel to the quake site!"
  737.             AnsiPos 10, 21
  738.             Wait
  739.             Goto LABEL001
  740.         Endif
  741.         If (BOOLEAN008 == 1) Then
  742.             AnsiPos 2, 8
  743.             Print "@X0ESurveying again only wastes time!"
  744.             AdjTime -2
  745.             Delay 30
  746.             Goto LABEL001
  747.         Endif
  748.         If (BOOLEAN014 == 1) Goto LABEL007
  749.         Return
  750.         :LABEL007
  751.         BOOLEAN008 = 1
  752.         Select Case (INTEGER017)
  753.             Case 1
  754.                 DispFile PPEPath() + "55", 0
  755.                 INTEGER023 = INTEGER017 + 6
  756.                 Goto LABEL001
  757.             Case 2
  758.                 DispFile PPEPath() + "58", 0
  759.                 INTEGER023 = 10
  760.                 Goto LABEL001
  761.             Case 3
  762.                 DispFile PPEPath() + "61", 0
  763.                 INTEGER023 = 11
  764.                 Goto LABEL001
  765.             Case 4
  766.                 DispFile PPEPath() + "65", 0
  767.                 INTEGER023 = 12
  768.                 Goto LABEL001
  769.             Case 5
  770.                 DispFile PPEPath() + "72", 0
  771.                 INTEGER023 = 13
  772.                 Goto LABEL001
  773.             Case 6
  774.                 DispFile PPEPath() + "73", 0
  775.                 INTEGER023 = 14
  776.                 Goto LABEL001
  777.             Case 7
  778.                 DispFile PPEPath() + "77", 0
  779.                 INTEGER023 = 15
  780.                 Goto LABEL001
  781.             Case 8
  782.                 DispFile PPEPath() + "85", 0
  783.                 INTEGER023 = 16
  784.                 Goto LABEL001
  785.             Case 9
  786.                 DispFile PPEPath() + "89", 0
  787.                 INTEGER023 = 17
  788.                 Goto LABEL001
  789.             Case 10
  790.                 DispFile PPEPath() + "95", 0
  791.                 INTEGER023 = 18
  792.                 Goto LABEL001
  793.         End Select
  794.         AnsiPos 10, 21
  795.         Wait
  796.         Goto LABEL001
  797.         Return
  798.         :LABEL008
  799.         If (INTEGER002 < 1) INTEGER002 = 1
  800.         If (INTEGER013 == 0) Then
  801.             AnsiPos 2, 4
  802.             Print "@X0BYou don't HAVE any medicine! JEEZ!"
  803.             AnsiPos 2, 5
  804.             Print "@X0E(What a DOERK!)"
  805.             INTEGER014 = INTEGER014 / 2
  806.             AnsiPos 10, 21
  807.             Wait
  808.             Goto LABEL001
  809.         Endif
  810.         If (INTEGER002 >= 6) Then
  811.             AnsiPos 2, 6
  812.             Print "@X0EYou can only take 5 doses a day!"
  813.             INTEGER014 = INTEGER014 / 2
  814.             AnsiPos 10, 21
  815.             Wait
  816.             Goto LABEL001
  817.         Endif
  818.         INTEGER002 = INTEGER002 + 1
  819.         INTEGER029 = Random(5) + 1
  820.         If (INTEGER029 == 1) INTEGER030 = 25
  821.         If (INTEGER029 == 2) INTEGER030 = 50
  822.         If (INTEGER029 == 3) INTEGER030 = 75
  823.         If (INTEGER029 == 4) INTEGER030 = 100
  824.         If (INTEGER029 == 5) INTEGER030 = 500
  825.         If (INTEGER029 == 6) INTEGER030 = 150
  826.         AnsiPos 2, 8
  827.         Print "@X0FA dose of medicine raises your health by ", INTEGER030, ""
  828.         INTEGER013 = INTEGER013 - 1
  829.         INTEGER012 = INTEGER012 + INTEGER030
  830.         AnsiPos 10, 21
  831.         Wait
  832.         Goto LABEL001
  833.         Return
  834.         :LABEL009
  835.         BOOLEAN009 = 0
  836.         INTEGER029 = Random(19) + 1
  837.         Select Case (INTEGER029)
  838.             Case 1
  839.                 STRING018 = "SAN_FRANCISCO"
  840.                 INTEGER018 = 850
  841.             Case 2
  842.                 STRING018 = "TACOMA"
  843.                 INTEGER018 = 40
  844.             Case 3
  845.                 STRING018 = "CAPE_MENDOCINO"
  846.                 INTEGER018 = 1000
  847.         End Select
  848.         Select Case (INTEGER029)
  849.             Case 4
  850.                 STRING018 = "LOS_ANGELES"
  851.                 INTEGER018 = 1200
  852.             Case 5
  853.                 STRING018 = "SEATTLE"
  854.                 INTEGER018 = 60
  855.             Case 6
  856.                 STRING018 = "NEW_MADRID"
  857.                 INTEGER018 = 1100
  858.             Case 7
  859.                 STRING018 = "NORTHRIDGE"
  860.                 INTEGER018 = 1100
  861.             Case 8
  862.                 STRING018 = "SAN_DIEGO"
  863.                 INTEGER018 = 1200
  864.         End Select
  865.         Select Case (INTEGER029)
  866.             Case 9
  867.                 STRING018 = "SAN_BERNADINO"
  868.                 INTEGER018 = 1300
  869.             Case 10
  870.                 STRING018 = "BREMERTON"
  871.                 INTEGER018 = 20
  872.             Case 11
  873.                 STRING018 = "MEXICO_CITY"
  874.                 INTEGER018 = 3300
  875.             Case 12
  876.                 STRING018 = "SALT_LAKE_CITY"
  877.                 INTEGER018 = 800
  878.             Case 13
  879.                 STRING018 = "LAS_VEGAS"
  880.                 INTEGER018 = 1100
  881.         End Select
  882.         Select Case (INTEGER029)
  883.             Case 14
  884.                 STRING018 = "SEATTLE"
  885.                 INTEGER018 = 60
  886.             Case 15
  887.                 STRING018 = "NORTHRIDGE"
  888.                 INTEGER018 = 1100
  889.             Case 16
  890.                 STRING018 = "TACOMA"
  891.                 INTEGER018 = 40
  892.             Case 17
  893.                 STRING018 = "PHOENIX"
  894.                 INTEGER018 = 2000
  895.             Case 18
  896.                 STRING018 = "SEATTLE"
  897.                 INTEGER018 = 60
  898.         End Select
  899.         Select Case (INTEGER029)
  900.             Case 19
  901.                 STRING018 = "MEXICO_CITY"
  902.                 INTEGER018 = 3300
  903.             Case 20
  904.                 STRING018 = "ST_LOUIS"
  905.                 INTEGER018 = 2500
  906.         End Select
  907.         INTEGER030 = Random(9) + 1
  908.         If (INTEGER030 == 1) Then
  909.             REAL001 = "5.5"
  910.             INTEGER017 = 1
  911.         Endif
  912.         If (INTEGER030 == 2) Then
  913.             REAL001 = "5.8"
  914.             INTEGER017 = 2
  915.         Endif
  916.         If (INTEGER030 == 3) Then
  917.             REAL001 = "6.1"
  918.             INTEGER017 = 3
  919.         Endif
  920.         If (INTEGER030 == 4) Then
  921.             REAL001 = "6.5"
  922.             INTEGER017 = 4
  923.         Endif
  924.         If (INTEGER030 == 5) Then
  925.             REAL001 = "7.2"
  926.             INTEGER017 = 5
  927.         Endif
  928.         If (INTEGER030 == 6) Then
  929.             REAL001 = "7.3"
  930.             INTEGER017 = 6
  931.         Endif
  932.         If (INTEGER030 == 7) Then
  933.             REAL001 = "7.7"
  934.             INTEGER017 = 7
  935.         Endif
  936.         If (INTEGER030 == 8) Then
  937.             REAL001 = "8.5"
  938.             INTEGER017 = 8
  939.         Endif
  940.         If (INTEGER030 == 9) Then
  941.             REAL001 = "8.9"
  942.             INTEGER017 = 9
  943.         Endif
  944.         If (INTEGER030 == 10) Then
  945.             REAL001 = "9.5"
  946.             INTEGER017 = 10
  947.         Endif
  948.         AnsiPos 2, 4
  949.         Print "@X0E     ╥─────┐ ╓─────┐ ╥─────┐ ╓──╥──┐ ╥     ┬"
  950.         AnsiPos 2, 5
  951.         Print "@X09     ║       ║     │ ║     │    ║    ║     │"
  952.         AnsiPos 2, 6
  953.         Print "@X0D     ╟──     ╟─────┤ ╟───┬─┘    ║    ╟─────┤"
  954.         AnsiPos 2, 7
  955.         Print "@X0F     ║       ║     │ ║   │      ║    ║     │"
  956.         AnsiPos 2, 8
  957.         Print "@X0F     ╨─────┘ ╨     ┴ ╨   ┴─     ╨    ╨     ┴"
  958.         AnsiPos 2, 9
  959.         Print "@X0E    ╓─────┐ ╥     ┬ ╓─────┐ ╥   ┌─  ╥─────┐"
  960.         AnsiPos 2, 10
  961.         Print "@X09   ║     │ ║     │ ║     │ ║   │   ║"
  962.         AnsiPos 2, 11
  963.         Print "@X0D    ║     │ ║     │ ╟─────┤ ╟───┴─┐ ╟──"
  964.         AnsiPos 2, 12
  965.         Print "@X0F  ║     │ ║     │ ║     │ ║     │ ║"
  966.         AnsiPos 2, 13
  967.         Print "@X0F   ╙───┼─┘ ╙─────┘ ╨     ┴ ╨     ┴ ╨─────┘"
  968.         AnsiPos 2, 14
  969.         Print "              @X02In @X0F", STRING018, ""
  970.         AnsiPos 2, 15
  971.         Print "           @X0F", REAL001, " @X02on the Richter Scale!"
  972.         AnsiPos 2, 16
  973.         Print "    @X9E You are ordered to go there at once! @X07"
  974.         AnsiPos 10, 21
  975.         Wait
  976.         Goto LABEL010
  977.         Goto LABEL001
  978.         Return
  979.         :LABEL010
  980.         Print "@CLS@"
  981.         DispFile PPEPath() + "SHAKMENU", 0
  982.         AnsiPos 64, 3
  983.         Print "@X5F"
  984.         Print INTEGER005
  985.         AnsiPos 64, 6
  986.         Print "@X1F"
  987.         Print "@TIMELEFT@"
  988.         AnsiPos 64, 7
  989.         Print "@X1F"
  990.         Print INTEGER011
  991.         AnsiPos 64, 8
  992.         Print "@X1F"
  993.         Print INTEGER012
  994.         AnsiPos 64, 9
  995.         Print "@X1F"
  996.         Print INTEGER013
  997.         AnsiPos 64, 10
  998.         Print "@X1F"
  999.         Print INTEGER014
  1000.         AnsiPos 64, 11
  1001.         Print "@X1F"
  1002.         Print STRING017
  1003.         AnsiPos 64, 12
  1004.         Print "@X1F"
  1005.         Print STRING018
  1006.         AnsiPos 21, 19
  1007.         Print "@X1F"
  1008.         Print REAL001
  1009.         AnsiPos 48, 19
  1010.         Print "@X1F"
  1011.         Print INTEGER023
  1012.         AnsiPos 73, 19
  1013.         Print "@X1F"
  1014.         Print INTEGER027
  1015.         AnsiPos 65, 19
  1016.         Print "@X1F"
  1017.         Print INTEGER026
  1018.         Select Case (BOOLEAN001)
  1019.             Case 1
  1020.                 AnsiPos 60, 15
  1021.                 Print "@X5EREGISTERED"
  1022.             Case 0
  1023.                 AnsiPos 59, 15
  1024.                 Print "@X5EUNREGISTERED"
  1025.         End Select
  1026.         Print "@X07"
  1027.         Return
  1028.         :LABEL011
  1029.         BOOLEAN010 = 1
  1030.         AnsiPos 2, 4
  1031.         Print "Congratulations!  You saved MANY lives!"
  1032.         AnsiPos 2, 5
  1033.         Print "@X0ECollect $2000.00 reward!"
  1034.         AnsiPos 2, 6
  1035.         Print "@X0FCollect 10 bonus minutes & 20 medicine vials!"
  1036.         INTEGER013 = INTEGER013 + 20
  1037.         INTEGER011 = INTEGER011 + 3000
  1038.         AdjTime +10
  1039.         AnsiPos 64, 3
  1040.         INTEGER005 = (INTEGER011 + INTEGER012 + INTEGER013 + INTEGER026 + INTEGER014) / 10 - 1
  1041.         AnsiPos 64, 3
  1042.         Print "@X5F"
  1043.         Print INTEGER005
  1044.         AnsiPos 64, 6
  1045.         Print "@X1F"
  1046.         Print "@TIMELEFT@"
  1047.         AnsiPos 64, 7
  1048.         Print "@X1F"
  1049.         Print INTEGER011
  1050.         AnsiPos 64, 8
  1051.         Print "@X1F"
  1052.         Print INTEGER012
  1053.         AnsiPos 64, 9
  1054.         Print "@X1F"
  1055.         Print INTEGER013
  1056.         AnsiPos 64, 10
  1057.         Print "@X1F"
  1058.         Print INTEGER014
  1059.         AnsiPos 10, 21
  1060.         AnsiPos 73, 19
  1061.         Print "@X1F"
  1062.         Print INTEGER027
  1063.         AnsiPos 65, 19
  1064.         Print "@X1F"
  1065.         Print INTEGER026
  1066.         Select Case (BOOLEAN001)
  1067.             Case 1
  1068.                 AnsiPos 60, 15
  1069.                 Print "@X5EREGISTERED"
  1070.             Case 0
  1071.                 AnsiPos 59, 15
  1072.                 Print "@X5EUNREGISTERED"
  1073.         End Select
  1074.         Print "@X07"
  1075.         AnsiPos 10, 21
  1076.         Wait
  1077.         Goto LABEL024
  1078.         Return
  1079.         :LABEL012
  1080.         If (INTEGER018 <= 100) Then
  1081.             AnsiPos 2, 11
  1082.             Print "It'd be more economical to take a cab..."
  1083.             INTEGER014 = INTEGER014 / 2
  1084.             AnsiPos 10, 21
  1085.             Delay 35
  1086.             Goto LABEL001
  1087.         Endif
  1088.         INTEGER029 = 0
  1089.         INTEGER019 = INTEGER018 / 10
  1090.         AnsiPos 2, 3
  1091.         Print "@X0FYou've arrived at the airport."
  1092.         If (STRING017 == STRING018) Then
  1093.             AnsiPos 2, 6
  1094.             Print "@X0EYou are already there!"
  1095.             INTEGER014 = INTEGER014 / 2
  1096.             AnsiPos 10, 21
  1097.             Wait
  1098.             Goto LABEL001
  1099.         Endif
  1100.         If (INTEGER019 <= 0) Then
  1101.             AnsiPos 2, 6
  1102.             Print "@X0EYou are already there!"
  1103.             INTEGER014 = INTEGER014 / 2
  1104.             AnsiPos 10, 21
  1105.             Wait
  1106.             Goto LABEL001
  1107.         Endif
  1108.         AnsiPos 2, 4
  1109.         Print "@X0F", INTEGER019
  1110.         STRING002 = "Y"
  1111.         InputStr "@X02 dollar fare.  Will you be flying?", STRING002, 12, 1, "YNQ", 2 + 4 + 8
  1112.         If (STRING002 == "") Goto LABEL012
  1113.         If (STRING002 == "Y") Then
  1114.             STRING017 = STRING018
  1115.             AnsiPos 2, 5
  1116.             Print "@X0EYou've landed safely in @X0F", STRING018, ""
  1117.             AnsiPos 2, 6
  1118.             Print "@X02You spot a line of taxicabs."
  1119.             INTEGER011 = INTEGER011 - INTEGER019
  1120.             INTEGER014 = INTEGER014 + 10 * INTEGER017
  1121.             AnsiPos 10, 21
  1122.             Wait
  1123.             Goto LABEL001
  1124.         Endif
  1125.         If (STRING002 == "N") Then
  1126.             AnsiPos 2, 7
  1127.             Print "@X0EIt's gonna be a long walk . . . "
  1128.             AnsiPos 10, 21
  1129.             Wait
  1130.             Goto LABEL001
  1131.         Endif
  1132.         AnsiPos 10, 21
  1133.         Wait
  1134.         Goto LABEL001
  1135.         Return
  1136.         :LABEL013
  1137.         If (INTEGER012 <= 20) Then
  1138.             AnsiPos 2, 5
  1139.             Print "@X0EYou're not healthy enough for that."
  1140.             AnsiPos 10, 21
  1141.             Wait
  1142.             Goto LABEL001
  1143.         Endif
  1144.         If (INTEGER013 == 0) Then
  1145.             AnsiPos 2, 9
  1146.             Print "@X0FYou CAN'T help anyone without MEDICINE!!!"
  1147.             AnsiPos 10, 21
  1148.             Wait
  1149.             Goto LABEL001
  1150.         Endif
  1151.         If (BOOLEAN014 == 0) Then
  1152.             AnsiPos 2, 5
  1153.             Print "@X0EThere's no damage, no victims here."
  1154.             AnsiPos 10, 21
  1155.             Wait
  1156.             Goto LABEL001
  1157.         Endif
  1158.         If (BOOLEAN008 == 0) Then
  1159.             AnsiPos 2, 7
  1160.             PrintLn "@X0EA precise damage survey would probably"
  1161.             AnsiPos 2, 8
  1162.             PrintLn "be appropriate."
  1163.             AnsiPos 10, 21
  1164.             Wait
  1165.             Goto LABEL001
  1166.         Endif
  1167.         Goto LABEL016
  1168.         Return
  1169.         :LABEL014
  1170.         STRING002 = "Y"
  1171.         INTEGER005 = (INTEGER011 + INTEGER012 + INTEGER013 + INTEGER026 + INTEGER014) / 10 - 1
  1172.         If (INTEGER005 >= INTEGER001) Goto LABEL020
  1173.         AnsiPos 64, 3
  1174.         Print "@X5F     "
  1175.         AnsiPos 64, 3
  1176.         Print "@X5F"
  1177.         Print INTEGER005
  1178.         AnsiPos 64, 6
  1179.         Print "@X1F    "
  1180.         AnsiPos 64, 6
  1181.         Print "@X1F"
  1182.         Print "@TIMELEFT@"
  1183.         AnsiPos 64, 7
  1184.         Print "@X1F     "
  1185.         AnsiPos 64, 7
  1186.         Print "@X1F"
  1187.         Print INTEGER011
  1188.         AnsiPos 48, 19
  1189.         Print "@X1F   "
  1190.         AnsiPos 48, 19
  1191.         Print "@X1F"
  1192.         Print INTEGER023
  1193.         AnsiPos 64, 8
  1194.         Print "@X1F    "
  1195.         AnsiPos 64, 8
  1196.         Print "@X1F"
  1197.         Print INTEGER012
  1198.         AnsiPos 64, 9
  1199.         Print "@X1F   "
  1200.         AnsiPos 64, 9
  1201.         Print "@X1F"
  1202.         Print INTEGER013
  1203.         Select Case (BOOLEAN001)
  1204.             Case 1
  1205.                 AnsiPos 60, 15
  1206.                 Print "@X5EREGISTERED"
  1207.             Case 0
  1208.                 AnsiPos 59, 15
  1209.                 Print "@X5EUNREGISTERED"
  1210.         End Select
  1211.         AnsiPos 64, 10
  1212.         Print "@X1F     "
  1213.         AnsiPos 64, 10
  1214.         Print "@X1F"
  1215.         Print INTEGER014
  1216.         AnsiPos 73, 19
  1217.         Print "@X1F"
  1218.         Print INTEGER027
  1219.         AnsiPos 65, 19
  1220.         Print "@X1F"
  1221.         Print INTEGER026
  1222.         AnsiPos 2, 4
  1223.         Print "@X07                                              "
  1224.         AnsiPos 2, 5
  1225.         Print "@X07                                              "
  1226.         AnsiPos 2, 6
  1227.         Print "@X07                                              "
  1228.         AnsiPos 2, 7
  1229.         Print "@X07                                              "
  1230.         AnsiPos 2, 8
  1231.         Print "@X07                                              "
  1232.         AnsiPos 2, 9
  1233.         Print "@X07                                              "
  1234.         AnsiPos 2, 10
  1235.         Print "@X07                                              "
  1236.         AnsiPos 2, 11
  1237.         Print "@X07                                              "
  1238.         AnsiPos 2, 12
  1239.         Print "@X07                                              "
  1240.         AnsiPos 2, 13
  1241.         Print "@X07                                              "
  1242.         AnsiPos 2, 14
  1243.         Print "@X07                                              "
  1244.         AnsiPos 2, 15
  1245.         Print "@X07                                              "
  1246.         AnsiPos 2, 16
  1247.         Print "@X07                                              "
  1248.         AnsiPos 2, 17
  1249.         Print "@X07                                              "
  1250.         If (INTEGER023 <= 0) Goto LABEL011
  1251.         If (INTEGER013 <= 0) Goto LABEL001
  1252.         If (INTEGER012 <= 20) Goto LABEL001
  1253.         AnsiPos 2, 4
  1254.         InputStr "@X0ELook for another?", STRING002, 12, 1, "YN", 2 + 4 + 8
  1255.         If (STRING002 == "") Goto LABEL014
  1256.         If (STRING002 == "Y") Then
  1257.             AnsiPos 2, 4
  1258.             Print "@X07                                            "
  1259.             Goto LABEL013
  1260.         Endif
  1261.         If (STRING002 == "N") Goto LABEL001
  1262.         Goto LABEL001
  1263.         :LABEL015
  1264.         If (BOOLEAN007 == 1) Then
  1265.             AnsiPos 2, 4
  1266.             Print "@X0EA mugger rushes out and GRABS YOU!"
  1267.             AnsiPos 2, 5
  1268.             Print "@X0FYou're so ugly you scare HIM away!"
  1269.             INTEGER012 = INTEGER012 - 50
  1270.             AnsiPos 10, 21
  1271.             Wait
  1272.             Goto LABEL001
  1273.         Endif
  1274.         BOOLEAN007 = 1
  1275.         AnsiPos 2, 4
  1276.         Print "@X0EA mugger rushes out and @X8EGRABS YOU@X0E!"
  1277.         INTEGER040 = Random(9) + 1
  1278.         If (INTEGER040 <= 6) Then
  1279.             AnsiPos 2, 6
  1280.             Print "@X0FYou were VERY lucky this time! He only got"
  1281.             AnsiPos 2, 7
  1282.             Print "@X0Fyour medicine and 20 bucks!"
  1283.             INTEGER013 = 0
  1284.             INTEGER011 = INTEGER011 - 20
  1285.             AnsiPos 10, 21
  1286.             Wait
  1287.         Else
  1288.             Select Case (INTEGER040)
  1289.                 Case 7
  1290.                     AnsiPos 2, 6
  1291.                     Print "@X0FHe took a lot of money and beat you"
  1292.                     AnsiPos 2, 7
  1293.                     Print "@X0Fup pretty badly--left you for dead."
  1294.                     INTEGER012 = INTEGER012 / 2
  1295.                     INTEGER011 = INTEGER011 / 2
  1296.                     INTEGER014 = INTEGER014 / 2
  1297.                     INTEGER013 = 0
  1298.                     AnsiPos 10, 21
  1299.                     Wait
  1300.                 Case 8
  1301.                     AnsiPos 2, 6
  1302.                     Print "@X0FWHEW!  Your body odor is so bad he"
  1303.                     AnsiPos 2, 7
  1304.                     Print "gave YOU some money!!!"
  1305.                     AnsiPos 2, 8
  1306.                     Print "@X0A(Go buy some deodorant!!!)"
  1307.                     INTEGER011 = INTEGER011 + 1000
  1308.                     AnsiPos 10, 21
  1309.                     Wait
  1310.                 Case 9
  1311.                     AnsiPos 2, 6
  1312.                     Print "@X0FHe took nothing, but you were beaten."
  1313.                     INTEGER012 = 15
  1314.                     AnsiPos 10, 21
  1315.                     Wait
  1316.                 Endif
  1317.         End Select
  1318.         AnsiPos 10, 21
  1319.         Wait
  1320.         Goto LABEL001
  1321.         :LABEL016
  1322.         INTEGER029 = 15
  1323.         INTEGER040 = 0
  1324.         INTEGER029 = Random(60) + 1
  1325.         Select Case (INTEGER029)
  1326.             Case 1
  1327.                 AnsiPos 2, 4
  1328.                 Print "@X0DYou found one!  It requires ALL your"
  1329.                 AnsiPos 2, 5
  1330.                 Print "@X0Dmedicine to save him, though."
  1331.                 INTEGER023 = INTEGER023 - 1
  1332.                 INTEGER013 = 0
  1333.                 INTEGER014 = INTEGER014 + 20
  1334.                 AnsiPos 10, 21
  1335.                 Wait
  1336.                 Goto LABEL014
  1337.             Case 2
  1338.                 AnsiPos 2, 4
  1339.                 Print "@X0EYou found one!  But, turns out to be"
  1340.                 AnsiPos 2, 5
  1341.                 Print "@X0ELORD AL!!!  You are penalized!"
  1342.                 INTEGER014 = INTEGER014 / 2
  1343.                 INTEGER012 = INTEGER012 / 2
  1344.                 INTEGER013 = INTEGER013 - 1
  1345.                 INTEGER023 = INTEGER023 + 2
  1346.                 AnsiPos 10, 21
  1347.                 Wait
  1348.                 Goto LABEL014
  1349.             Case 3
  1350.                 AnsiPos 2, 4
  1351.                 Print "@X0DSaving this one tires you by 30 points."
  1352.                 INTEGER023 = INTEGER023 - 1
  1353.                 INTEGER012 = INTEGER012 - 30
  1354.                 INTEGER013 = INTEGER013 - 1
  1355.                 INTEGER014 = INTEGER014 - 10
  1356.                 AnsiPos 10, 21
  1357.                 Wait
  1358.                 Goto LABEL014
  1359.             Case 4
  1360.                 AnsiPos 2, 4
  1361.                 Print "@X0FYou are rewarded TEN MINUTES!"
  1362.                 INTEGER023 = INTEGER023 - 1
  1363.                 INTEGER013 = INTEGER013 - 1
  1364.                 AdjTime +10
  1365.                 AnsiPos 10, 21
  1366.                 Wait
  1367.                 Goto LABEL014
  1368.             Case 5
  1369.                 AnsiPos 2, 4
  1370.                 Print "@X0EThis one is not breathing!"
  1371.                 AnsiPos 2, 5
  1372.                 Print "@X0EYour CPR saves her!"
  1373.                 INTEGER023 = INTEGER023 - 1
  1374.                 INTEGER014 = INTEGER014 * 2
  1375.                 INTEGER013 = INTEGER013 - 1
  1376.                 AnsiPos 10, 21
  1377.                 Wait
  1378.                 Goto LABEL014
  1379.             Case 6
  1380.                 AnsiPos 2, 4
  1381.                 Print "@X0EOH MY GAWD!  It's @X0F"
  1382.                 Print STRING007
  1383.                 Print " exwife!!"
  1384.                 AnsiPos 2, 5
  1385.                 Print "You move to someone more deserving!"
  1386.                 AnsiPos 2, 6
  1387.                 Print "@X09She takes HALF your money (again!)"
  1388.                 INTEGER011 = INTEGER011 / 2
  1389.                 INTEGER014 = INTEGER014 / 2
  1390.                 AnsiPos 10, 21
  1391.                 Wait
  1392.                 Goto LABEL014
  1393.             Case 7
  1394.                 AnsiPos 2, 4
  1395.                 Print "@X02Saving this one takes HALF your medicine."
  1396.                 INTEGER023 = INTEGER023 - 1
  1397.                 INTEGER013 = INTEGER013 / 2
  1398.                 INTEGER014 = INTEGER014 - 10
  1399.                 AnsiPos 10, 21
  1400.                 Wait
  1401.                 Goto LABEL014
  1402.             Case 8
  1403.                 AnsiPos 2, 4
  1404.                 Print "@X0EThis one wears a CLINTON/GORE button."
  1405.                 AnsiPos 2, 5
  1406.                 Print "@X0FYou save her anyway!"
  1407.                 INTEGER023 = INTEGER023 - 1
  1408.                 INTEGER013 = INTEGER013 - 1
  1409.                 AnsiPos 10, 21
  1410.                 Wait
  1411.                 Goto LABEL014
  1412.             Case 9
  1413.                 AnsiPos 2, 4
  1414.                 Print "@X0EIt's Jim Coleman, bleeding profusely!"
  1415.                 AnsiPos 2, 5
  1416.                 Print "@X0FYou are GREATLY rewarded!!!"
  1417.                 INTEGER012 = INTEGER012 * 2
  1418.                 INTEGER014 = INTEGER014 + 20
  1419.                 INTEGER011 = INTEGER011 + 200
  1420.                 INTEGER023 = INTEGER023 - 1
  1421.                 INTEGER013 = INTEGER013 + 10
  1422.                 AnsiPos 10, 21
  1423.                 Wait
  1424.                 Goto LABEL014
  1425.             Case 10
  1426.                 AnsiPos 2, 4
  1427.                 Print "@X0FYou just saved an infant baby girl!"
  1428.                 INTEGER012 = INTEGER012 + 100
  1429.                 INTEGER013 = INTEGER013 - 1
  1430.                 INTEGER023 = INTEGER023 - 1
  1431.                 AnsiPos 10, 21
  1432.                 Wait
  1433.                 Goto LABEL014
  1434.             Case 11
  1435.                 AnsiPos 2, 4
  1436.                 Print "@X0FNope, gang member.  Move along."
  1437.                 AnsiPos 2, 5
  1438.                 Print "@X0FHe shoots you as you walk away!"
  1439.                 Delay 7
  1440.                 AnsiPos 2, 6
  1441.                 Print "@X0EIt's just a flesh wound, but it really"
  1442.                 AnsiPos 2, 7
  1443.                 Print "@X0Emade you weak and unhealthy!"
  1444.                 INTEGER012 = 5
  1445.                 AnsiPos 10, 21
  1446.                 Wait
  1447.                 Goto LABEL014
  1448.             Case 12
  1449.                 AnsiPos 2, 4
  1450.                 Print "@X0EYou administer CPR to @X0F"
  1451.                 Print STRING008
  1452.                 INTEGER012 = INTEGER012 + 100
  1453.                 INTEGER014 = INTEGER014 + 20
  1454.                 INTEGER023 = INTEGER023 - 1
  1455.                 AnsiPos 10, 21
  1456.                 Wait
  1457.                 Goto LABEL014
  1458.             Case 13
  1459.                 AnsiPos 2, 4
  1460.                 Print "@X0DYou accidentally drop your medicine bag..."
  1461.                 INTEGER013 = INTEGER013 / 2
  1462.                 INTEGER014 = INTEGER014 - 20
  1463.                 AnsiPos 10, 21
  1464.                 Wait
  1465.                 Goto LABEL014
  1466.             Case 14
  1467.                 AnsiPos 2, 4
  1468.                 Print "@X8EYOU JUST SAVED THE PHARMACIST!!!"
  1469.                 INTEGER013 = INTEGER013 + 10
  1470.                 INTEGER023 = INTEGER023 - 1
  1471.                 AnsiPos 10, 21
  1472.                 Wait
  1473.                 Goto LABEL014
  1474.             Case 15
  1475.                 AnsiPos 2, 4
  1476.                 Print "@X04You save TWO kids in the pet store!"
  1477.                 INTEGER014 = INTEGER014 + 50
  1478.                 INTEGER012 = INTEGER012 + 100
  1479.                 INTEGER013 = INTEGER013 - 3
  1480.                 INTEGER023 = INTEGER023 - 2
  1481.                 AnsiPos 10, 21
  1482.                 Wait
  1483.                 Goto LABEL014
  1484.             Case 16
  1485.                 Goto LABEL015
  1486.             Case 17
  1487.                 AnsiPos 2, 4
  1488.                 Print "@X0EYou save a very grateful victim!"
  1489.                 INTEGER012 = INTEGER012 + 60
  1490.                 INTEGER013 = INTEGER013 - 1
  1491.                 INTEGER023 = INTEGER023 - 1
  1492.                 AnsiPos 10, 21
  1493.                 Wait
  1494.                 Goto LABEL014
  1495.             Case 18
  1496.                 AnsiPos 2, 4
  1497.                 Print "@X0EThis victim has his OWN medicine!"
  1498.                 AnsiPos 2, 5
  1499.                 Print "@X0FYou administer it and save him!"
  1500.                 INTEGER014 = INTEGER014 + 20
  1501.                 INTEGER023 = INTEGER023 - 1
  1502.                 AnsiPos 10, 21
  1503.                 Wait
  1504.                 Goto LABEL014
  1505.             Case 19
  1506.                 AnsiPos 2, 4
  1507.                 Print "@X0EThis victim is VERY pregnant!"
  1508.                 AnsiPos 2, 5
  1509.                 Print "@X0FSHE'S IN LABOR RIGHT NOW!"
  1510.                 AnsiPos 2, 7
  1511.                 Print "@X04You deliver TWINS!  Congratulations!"
  1512.                 INTEGER023 = INTEGER023 - 1
  1513.                 INTEGER014 = INTEGER014 + 100
  1514.                 INTEGER012 = INTEGER012 + 500
  1515.                 AnsiPos 10, 21
  1516.                 Wait
  1517.                 Goto LABEL014
  1518.             Case 20
  1519.                 AnsiPos 2, 4
  1520.                 Print "@X0FYou try to save this one, but she"
  1521.                 AnsiPos 2, 5
  1522.                 Print "@X0Fis too far gone.  It requires"
  1523.                 AnsiPos 2, 6
  1524.                 Print "many of your resources."
  1525.                 INTEGER013 = INTEGER013 - 2
  1526.                 INTEGER012 = INTEGER012 - 100
  1527.                 AnsiPos 10, 21
  1528.                 Wait
  1529.                 Goto LABEL014
  1530.             Case 21
  1531.                 AnsiPos 2, 4
  1532.                 Print "@X0EThis victim bleeds profusely."
  1533.                 AnsiPos 2, 5
  1534.                 Print "You apply a tourniquet!"
  1535.                 AnsiPos 2, 6
  1536.                 Print "He is very grateful."
  1537.                 INTEGER014 = INTEGER014 + 20
  1538.                 INTEGER012 = INTEGER012 + 30
  1539.                 INTEGER023 = INTEGER023 - 1
  1540.                 AnsiPos 10, 21
  1541.                 Wait
  1542.                 Goto LABEL014
  1543.             Case 22
  1544.                 AnsiPos 2, 4
  1545.                 Print "@X0FYou save a newborn child who was"
  1546.                 AnsiPos 2, 5
  1547.                 Print "@X0Ftrapped under an ironing board."
  1548.                 AnsiPos 2, 7
  1549.                 Print "@X09You are a credit to your gender."
  1550.                 AnsiPos 2, 8
  1551.                 Print "@X0EYou spot the kid's father!"
  1552.                 AnsiPos 2, 9
  1553.                 Print "@X0Eand you save him TOO!"
  1554.                 AnsiPos 2, 10
  1555.                 Print "He rewards you with money!"
  1556.                 INTEGER023 = INTEGER023 - 2
  1557.                 INTEGER011 = INTEGER011 + 700
  1558.                 INTEGER012 = INTEGER012 + 50
  1559.                 AnsiPos 10, 21
  1560.                 Wait
  1561.                 Goto LABEL014
  1562.             Case 23
  1563.                 AnsiPos 2, 4
  1564.                 Print "@X0EThis victim dies, despite your best"
  1565.                 AnsiPos 2, 5
  1566.                 Print "@X0Eefforts and all your medicine. :("
  1567.                 INTEGER013 = 0
  1568.                 INTEGER012 = INTEGER012 - 50
  1569.                 AnsiPos 10, 21
  1570.                 Wait
  1571.                 Goto LABEL014
  1572.             Case 24
  1573.                 AnsiPos 2, 4
  1574.                 Print "@X0DYou save an Alzheimer's patient"
  1575.                 AnsiPos 2, 5
  1576.                 Print "@X0Dwho promptly hits you over the head"
  1577.                 AnsiPos 2, 6
  1578.                 Print "@X0Dwith his cane!"
  1579.                 AnsiPos 2, 8
  1580.                 Print "@X8EOUCH!  @X0EBut he's alive and smiling. :)"
  1581.                 INTEGER023 = INTEGER023 - 1
  1582.                 INTEGER013 = INTEGER013 - 1
  1583.                 INTEGER012 = INTEGER012 - 20
  1584.                 AnsiPos 10, 21
  1585.                 Wait
  1586.                 Goto LABEL014
  1587.             Case 25
  1588.                 AnsiPos 2, 4
  1589.                 Print "@X0EThis victim looks like @X0F"
  1590.                 Print STRING009
  1591.                 AnsiPos 2, 6
  1592.                 Print "@X0DYou save him anyway, but lifting"
  1593.                 AnsiPos 2, 7
  1594.                 Print "@X0Dhim REALLY tires you out!"
  1595.                 INTEGER023 = INTEGER023 - 1
  1596.                 INTEGER012 = 10
  1597.                 INTEGER013 = INTEGER013 / 2
  1598.                 AnsiPos 10, 21
  1599.                 Wait
  1600.                 Goto LABEL014
  1601.             Case 26
  1602.                 AnsiPos 2, 4
  1603.                 Print "@X0EThis victim's leg is badly broken."
  1604.                 AnsiPos 2, 5
  1605.                 Print "You splint it and relieve her pain."
  1606.                 AnsiPos 2, 6
  1607.                 Print "She gives you a big kiss!"
  1608.                 INTEGER013 = INTEGER013 - 1
  1609.                 INTEGER023 = INTEGER023 - 1
  1610.                 INTEGER014 = INTEGER014 + 100
  1611.                 INTEGER012 = INTEGER012 + 100
  1612.                 AnsiPos 10, 21
  1613.                 Wait
  1614.                 Goto LABEL014
  1615.             Case 27
  1616.                 AnsiPos 2, 4
  1617.                 Print "@X0EThis one is face down in the debris and"
  1618.                 AnsiPos 2, 5
  1619.                 Print "is barely breathing.  You work very hard"
  1620.                 AnsiPos 2, 6
  1621.                 Print "to save his life; it tires you."
  1622.                 INTEGER023 = INTEGER023 - 1
  1623.                 INTEGER012 = INTEGER012 - 55
  1624.                 INTEGER013 = INTEGER013 / 2
  1625.                 INTEGER014 = INTEGER014 + 100
  1626.                 AnsiPos 10, 21
  1627.                 Wait
  1628.                 Goto LABEL014
  1629.             Case 28
  1630.                 AnsiPos 2, 4
  1631.                 Print "@X0EThis victim just needs some pain medicine."
  1632.                 AnsiPos 2, 5
  1633.                 Print "You give it to him, and, when he's not"
  1634.                 AnsiPos 2, 6
  1635.                 Print "looking, you steal his pocket protector!"
  1636.                 AnsiPos 2, 8
  1637.                 Print "You get EXPERIENCE and LOTS of pens!"
  1638.                 BOOLEAN002 = 1
  1639.                 INTEGER013 = INTEGER013 - 2
  1640.                 INTEGER023 = INTEGER023 - 1
  1641.                 INTEGER014 = INTEGER014 + 100
  1642.                 AnsiPos 10, 21
  1643.                 Wait
  1644.                 Goto LABEL014
  1645.             Case 29
  1646.                 AnsiPos 2, 4
  1647.                 Print "@X0AThis victim was severely lacerated in the"
  1648.                 AnsiPos 2, 5
  1649.                 Print "face by falling glass.  You stop the"
  1650.                 AnsiPos 2, 6
  1651.                 Print "bleeding and bandage the wounds!"
  1652.                 INTEGER023 = INTEGER023 - 1
  1653.                 INTEGER013 = INTEGER013 - 2
  1654.                 INTEGER014 = INTEGER014 + 50
  1655.                 AnsiPos 10, 21
  1656.                 Wait
  1657.                 Goto LABEL014
  1658.             Case 30
  1659.                 AnsiPos 2, 4
  1660.                 Print "@X0DYou have to jack up a wall to extricate"
  1661.                 AnsiPos 2, 5
  1662.                 Print "this suffering teen."
  1663.                 AnsiPos 2, 7
  1664.                 Print "She dies in your arms . . . "
  1665.                 INTEGER013 = INTEGER013 - 1
  1666.                 INTEGER012 = INTEGER012 / 2
  1667.                 AnsiPos 10, 21
  1668.                 Wait
  1669.                 Goto LABEL014
  1670.             Case 31
  1671.                 AnsiPos 2, 4
  1672.                 Print "@X0BYou walk into a church nursery"
  1673.                 AnsiPos 2, 5
  1674.                 Print "@X0AThere are babies EVERYWHERE!!!"
  1675.                 AnsiPos 2, 7
  1676.                 Print "@X0EAnd they all have @X0FDIRTY DIAPERS!!!"
  1677.                 AnsiPos 2, 8
  1678.                 Print "@X1E     YIPPEE!!!     @X07"
  1679.                 INTEGER023 = INTEGER023 - 5
  1680.                 AnsiPos 10, 21
  1681.                 Wait
  1682.                 Goto LABEL014
  1683.             Case 32
  1684.                 AnsiPos 2, 4
  1685.                 Print "@X0BIt's @X0E"
  1686.                 Print STRING010
  1687.                 Print "@X0B, lying in raw sewage."
  1688.                 AnsiPos 2, 5
  1689.                 Print "He tries to bum a smoke from you."
  1690.                 AnsiPos 2, 7
  1691.                 Print "@X0FYou think LONG AND HARD about this one"
  1692.                 AnsiPos 2, 8
  1693.                 Print "but finally save him in the end."
  1694.                 AnsiPos 2, 9
  1695.                 Print "@X03(Gawd, what a STINK!)"
  1696.                 INTEGER023 = INTEGER023 - 1
  1697.                 INTEGER014 = INTEGER014 + 20
  1698.                 AnsiPos 10, 21
  1699.                 Wait
  1700.                 Goto LABEL014
  1701.             Case 33
  1702.                 AnsiPos 2, 4
  1703.                 Print "@X0DThis one is dead, but you spot a"
  1704.                 AnsiPos 2, 5
  1705.                 Print "couple hundred-dollar-bills sticking out"
  1706.                 AnsiPos 2, 6
  1707.                 Print "of his pocket.  You know it may help"
  1708.                 AnsiPos 2, 7
  1709.                 Print "buy medicine, so you grit your teeth"
  1710.                 AnsiPos 2, 8
  1711.                 Print "and take it (and his watch!)"
  1712.                 INTEGER011 = INTEGER011 + 500
  1713.                 AnsiPos 10, 21
  1714.                 Wait
  1715.                 Goto LABEL014
  1716.             Case 34
  1717.                 AnsiPos 2, 4
  1718.                 Print "@X0FThere are a bunch of dead Amway dealers"
  1719.                 AnsiPos 2, 5
  1720.                 Print "out all over the parking lot of a local"
  1721.                 AnsiPos 2, 6
  1722.                 Print "convention center.  As much as you would LOVE"
  1723.                 AnsiPos 2, 7
  1724.                 Print "to save  a Scamway dealer (snicker),"
  1725.                 AnsiPos 2, 8
  1726.                 Print "none are alive."
  1727.                 AnsiPos 2, 9
  1728.                 Print "@X08Did one of their OWN PRODUCTS do them in?"
  1729.                 AnsiPos 10, 21
  1730.                 Wait
  1731.                 Goto LABEL014
  1732.             Case 35
  1733.                 AnsiPos 2, 4
  1734.                 Print "@X0EThis nurse was crushed by falling debris,"
  1735.                 AnsiPos 2, 5
  1736.                 Print "but you collect her scattered medicine."
  1737.                 AnsiPos 2, 7
  1738.                 Print "Feeling exhausted, you take some medicine."
  1739.                 INTEGER013 = INTEGER013 + 7
  1740.                 INTEGER012 = INTEGER012 + 200
  1741.                 AnsiPos 10, 21
  1742.                 Wait
  1743.                 Goto LABEL014
  1744.             Case 36
  1745.                 AnsiPos 2, 4
  1746.                 Print "@X0EIt's a secret NUDIST COLONY!"
  1747.                 AnsiPos 2, 5
  1748.                 Print "@X0AYou save @X0B"
  1749.                 Print STRING011
  1750.                 Print "@X0A ... and your"
  1751.                 AnsiPos 2, 6
  1752.                 Print "@X0EFIRST @X0Aorder of business is finding him"
  1753.                 AnsiPos 2, 7
  1754.                 Print "some clothes!"
  1755.                 INTEGER013 = INTEGER013 - 1
  1756.                 INTEGER012 = INTEGER012 - 50
  1757.                 INTEGER023 = INTEGER023 - 1
  1758.                 AnsiPos 10, 21
  1759.                 Wait
  1760.                 Goto LABEL014
  1761.             Case 37
  1762.                 AnsiPos 2, 4
  1763.                 Print "@X0EOH NO!  Your radio squawks to life and"
  1764.                 AnsiPos 2, 5
  1765.                 Print "you are told 3 MORE victims have been"
  1766.                 AnsiPos 2, 6
  1767.                 Print "located. It's gonna be a long day..."
  1768.                 INTEGER023 = INTEGER023 + 3
  1769.                 INTEGER012 = INTEGER012 / 2
  1770.                 INTEGER014 = INTEGER014 + 50
  1771.                 AnsiPos 10, 21
  1772.                 Wait
  1773.                 Goto LABEL014
  1774.             Case 38
  1775.                 AnsiPos 2, 4
  1776.                 Print "@X02You save a @X0FTelevangelist @X02who is ALSO an"
  1777.                 AnsiPos 2, 5
  1778.                 Print "@X0FAmway @X02dealer!!!  He takes a LOT of your"
  1779.                 AnsiPos 2, 6
  1780.                 Print "@X0Ftime and money @X02and doesn't count as"
  1781.                 AnsiPos 2, 7
  1782.                 Print "humanity in the end. @X8ENo victim credit."
  1783.                 AnsiPos 2, 8
  1784.                 Print "@X0E(You should be FLOGGED for this!!!)"
  1785.                 INTEGER013 = 0
  1786.                 INTEGER011 = (INTEGER011 / 3) * 2
  1787.                 AnsiPos 10, 21
  1788.                 Wait
  1789.                 Goto LABEL014
  1790.             Case 39
  1791.                 AnsiPos 2, 4
  1792.                 Print "@X0EOHMYGAWD!  @X0BIt's "
  1793.                 Print STRING012
  1794.                 AnsiPos 2, 6
  1795.                 Print "@X0EYou sit and ponder this one for a bit"
  1796.                 AnsiPos 2, 7
  1797.                 Print "@X0Aand finally decide to save him"
  1798.                 AnsiPos 2, 9
  1799.                 Print "@X09(After making him SWEAR to give you all"
  1800.                 AnsiPos 2, 10
  1801.                 Print "his hammsters!"
  1802.                 INTEGER023 = INTEGER023 - 1
  1803.                 INTEGER013 = INTEGER013 - 1
  1804.                 INTEGER014 = INTEGER014 + 50
  1805.                 AnsiPos 10, 21
  1806.                 Wait
  1807.                 Goto LABEL014
  1808.             Case 40
  1809.                 AnsiPos 2, 4
  1810.                 Print "@X0EYou've found @X09"
  1811.                 Print STRING013
  1812.                 AnsiPos 2, 5
  1813.                 Print "@X0ESave him and he rewards you with a"
  1814.                 AnsiPos 2, 6
  1815.                 Print "dollar bill and a copy of DOS 1.10a"
  1816.                 AnsiPos 2, 7
  1817.                 Print "he carries around all the time."
  1818.                 INTEGER011 = INTEGER011 + 1
  1819.                 INTEGER023 = INTEGER023 - 1
  1820.                 INTEGER013 = INTEGER013 - 1
  1821.                 AnsiPos 10, 21
  1822.                 Wait
  1823.                 Goto LABEL014
  1824.             Case 41
  1825.                 AnsiPos 2, 4
  1826.                 Print "@X0BYou recognize @X0E"
  1827.                 Print STRING014
  1828.                 Print " @X0Blying in"
  1829.                 AnsiPos 2, 5
  1830.                 Print "a spill of mashed bananas."
  1831.                 AnsiPos 2, 6
  1832.                 Print "@X0EYour heart goes out to him."
  1833.                 INTEGER023 = INTEGER023 - 1
  1834.                 INTEGER013 = INTEGER013 - 1
  1835.                 INTEGER012 = 2000
  1836.                 AnsiPos 10, 21
  1837.                 Wait
  1838.                 Goto LABEL014
  1839.             Case 42
  1840.                 AnsiPos 2, 4
  1841.                 Print "@X0DIT'S BRIAN!  @X0EYou race to his side!"
  1842.                 AnsiPos 2, 5
  1843.                 Print "He requires two medicine doses."
  1844.                 AnsiPos 2, 6
  1845.                 Print "@X8FYou are able to save him!"
  1846.                 AnsiPos 2, 7
  1847.                 Print "@X02He gives you an INTERNET mycology T-shirt"
  1848.                 AnsiPos 2, 8
  1849.                 Print "and a HUGE bag of mushrooms!"
  1850.                 INTEGER023 = INTEGER023 - 1
  1851.                 INTEGER013 = INTEGER013 - 2
  1852.                 INTEGER012 = INTEGER012 + 100
  1853.                 INTEGER014 = INTEGER014 + 200
  1854.                 AnsiPos 10, 21
  1855.                 Wait
  1856.                 Goto LABEL014
  1857.             Case 43
  1858.                 AnsiPos 2, 4
  1859.                 Print "@X8FIT'S YOUR BOSS!!!!"
  1860.                 AnsiPos 2, 5
  1861.                 Print "@X0AYou are stumped...what to do?"
  1862.                 AnsiPos 2, 7
  1863.                 Print "@X0FI'll save you for a good raise!"
  1864.                 AnsiPos 2, 8
  1865.                 Print "@X0EYou've got to be kidding!"
  1866.                 AnsiPos 2, 9
  1867.                 Print "@X0FFine, then.  Enjoy yourself!"
  1868.                 AnsiPos 2, 11
  1869.                 Print "@X0DYou walk on."
  1870.                 INTEGER012 = INTEGER012 + 500
  1871.                 INTEGER014 = INTEGER014 * 2
  1872.                 AnsiPos 10, 21
  1873.                 Wait
  1874.                 Goto LABEL014
  1875.             Case 44
  1876.                 AnsiPos 2, 4
  1877.                 Print "@X0BIt's @X0D"
  1878.                 Print STRING015
  1879.                 Print " @X0B, completely"
  1880.                 AnsiPos 2, 5
  1881.                 Print "collapsed and smoldering."
  1882.                 AnsiPos 2, 6
  1883.                 Print "@X0DThe Sysop @X0Awaves frantically from"
  1884.                 AnsiPos 2, 7
  1885.                 Print "under the debris."
  1886.                 AnsiPos 2, 8
  1887.                 Print "@X1E  You smile and wave back!  @X0B"
  1888.                 INTEGER012 = INTEGER012 + 1000
  1889.                 INTEGER014 = INTEGER014 + 500
  1890.                 AnsiPos 10, 21
  1891.                 Wait
  1892.                 Goto LABEL014
  1893.             Case 45
  1894.                 AnsiPos 2, 4
  1895.                 Print "@X0AYou save a nice grandmother."
  1896.                 INTEGER023 = INTEGER023 - 1
  1897.                 INTEGER013 = INTEGER013 - 1
  1898.                 INTEGER012 = INTEGER012 + 100
  1899.                 AnsiPos 10, 21
  1900.                 Wait
  1901.                 Goto LABEL014
  1902.             Case 46
  1903.                 AnsiPos 2, 4
  1904.                 Print "@X0BYou thought you saw a victim here,"
  1905.                 AnsiPos 2, 5
  1906.                 Print "But it must have been a trick of light."
  1907.                 AnsiPos 10, 21
  1908.                 Wait
  1909.                 Goto LABEL014
  1910.             Case 47
  1911.                 AnsiPos 2, 4
  1912.                 Print "@X0AIt's Hillary Clinton . . . "
  1913.                 AnsiPos 2, 5
  1914.                 Print "She's listening to a transistor radio."
  1915.                 AnsiPos 2, 6
  1916.                 Print "@X0BShe's listening to . . . to @X8FRUSH LIMBAUGH!"
  1917.                 AnsiPos 2, 8
  1918.                 Print "@X0DYou get two victim credits"
  1919.                 AnsiPos 2, 9
  1920.                 Print "for @X0FNOT @X0Dsaving her!!!"
  1921.                 INTEGER023 = INTEGER023 - 2
  1922.                 INTEGER014 = INTEGER014 + 500
  1923.                 INTEGER012 = INTEGER012 + 777
  1924.                 AnsiPos 10, 21
  1925.                 Wait
  1926.                 Goto LABEL014
  1927.             Case 48
  1928.                 AnsiPos 2, 4
  1929.                 Print "@X0EIt's "
  1930.                 Print STRING016
  1931.                 Print " under a pile of rubbish!"
  1932.                 AnsiPos 2, 5
  1933.                 Print "@X0BHe's injured, but hugging a boat motor."
  1934.                 AnsiPos 2, 7
  1935.                 Print "@X0FIf I go, we go together! @X02he tells it."
  1936.                 AnsiPos 2, 8
  1937.                 Print "The motor doesn't answer; you save him."
  1938.                 AnsiPos 2, 9
  1939.                 Print "He gives you some dinky fish he caught!"
  1940.                 INTEGER023 = INTEGER023 - 1
  1941.                 INTEGER012 = INTEGER012 + 200
  1942.                 INTEGER013 = INTEGER013 - 1
  1943.                 AnsiPos 10, 21
  1944.                 Wait
  1945.                 Goto LABEL014
  1946.             Case 49
  1947.                 AnsiPos 2, 4
  1948.                 Print "@X0AYou save a fat, smelly bald man!"
  1949.                 AnsiPos 2, 6
  1950.                 Print "@X0FI won the lotto last week! @X02he says."
  1951.                 AnsiPos 2, 7
  1952.                 Print "@X0FYeah, and I'm Bill Clinton, @X02you snicker."
  1953.                 AnsiPos 2, 8
  1954.                 Print "@X0FThanks for saving me! @X02he says . . ."
  1955.                 AnsiPos 2, 9
  1956.                 Print "@X0Afarts, then DOUBLES YOUR MONEY!!!"
  1957.                 INTEGER011 = INTEGER011 * 2
  1958.                 INTEGER012 = INTEGER012 + 500
  1959.                 INTEGER023 = INTEGER023 - 1
  1960.                 INTEGER013 = INTEGER013 - 1
  1961.                 AnsiPos 10, 21
  1962.                 Wait
  1963.                 Goto LABEL014
  1964.             Case 50
  1965.                 AnsiPos 2, 4
  1966.                 Print "@X0AYOU STEP ON A CRACK while looking for"
  1967.                 AnsiPos 2, 5
  1968.                 Print "victims and get a very bad feeling that"
  1969.                 AnsiPos 2, 6
  1970.                 Print "something awful is about to happen to you!"
  1971.                 INTEGER040 = Random(7) + 1
  1972.                 If (INTEGER040 <= 7) Then
  1973.                     AnsiPos 2, 8
  1974.                     Print "@X0FYou sigh with relief"
  1975.                     AnsiPos 2, 9
  1976.                     Print "as the feeling passes . . . "
  1977.                     AnsiPos 10, 21
  1978.                     Wait
  1979.                     Goto LABEL014
  1980.                 ElseIf (INTEGER040 == 8) Then
  1981.                     Goto LABEL023
  1982.                 Endif
  1983.             Case 51
  1984.                 AnsiPos 2, 4
  1985.                 Print "@X0EYou save a fat, hairy man with AIDS"
  1986.                 AnsiPos 2, 5
  1987.                 Print "@X0Ewho then wants to have sex with you!"
  1988.                 AnsiPos 2, 7
  1989.                 Print "@X0BYou RE-INJURE him!"
  1990.                 INTEGER013 = INTEGER013 - 1
  1991.                 INTEGER012 = INTEGER012 * 2
  1992.                 AnsiPos 10, 21
  1993.                 Wait
  1994.                 Goto LABEL014
  1995.             Case 52
  1996.                 AnsiPos 2, 4
  1997.                 Print "@X0ATwo more people die in an aftershock!"
  1998.                 INTEGER023 = INTEGER023 + 2
  1999.                 AnsiPos 10, 21
  2000.                 Wait
  2001.                 Goto LABEL014
  2002.             Case 53
  2003.                 AnsiPos 2, 4
  2004.                 Print "@X0EIF this game is registered . . . "
  2005.                 AnsiPos 2, 5
  2006.                 Print "@X0BYou get two victim credits AND you"
  2007.                 AnsiPos 2, 6
  2008.                 Print "get $500!"
  2009.                 If (BOOLEAN001 == 1) Then
  2010.                     INTEGER023 = INTEGER023 - 2
  2011.                     INTEGER011 = INTEGER011 + 500
  2012.                 Endif
  2013.                 AnsiPos 10, 21
  2014.                 Wait
  2015.                 Goto LABEL014
  2016.             Case 54
  2017.                 AnsiPos 2, 4
  2018.                 Print "@X0FYou save two boys who were playing"
  2019.                 AnsiPos 2, 5
  2020.                 Print "basketball when the quake hit!"
  2021.                 INTEGER013 = INTEGER013 - 2
  2022.                 INTEGER023 = INTEGER023 - 2
  2023.                 AnsiPos 10, 21
  2024.                 Wait
  2025.                 Goto LABEL014
  2026.             Case 55
  2027.                 AnsiPos 2, 4
  2028.                 Print "@X0BYou find 2 vials of medicine on a curb."
  2029.                 INTEGER013 = INTEGER013 + 2
  2030.                 AnsiPos 10, 21
  2031.                 Wait
  2032.                 Goto LABEL014
  2033.             Case 56
  2034.                 AnsiPos 2, 4
  2035.                 Print "@X0BThis looter was injured while robbing a"
  2036.                 AnsiPos 2, 5
  2037.                 Print "storefront.  He begs for help.  You are"
  2038.                 AnsiPos 2, 6
  2039.                 Print "in a humanitarian mood . . . "
  2040.                 AnsiPos 2, 7
  2041.                 Print "@X0BYou leave him there in the dirt"
  2042.                 AnsiPos 2, 8
  2043.                 Print "but take one of his Rolex watches!"
  2044.                 INTEGER012 = INTEGER012 * 2
  2045.                 AnsiPos 10, 21
  2046.                 Wait
  2047.                 Goto LABEL014
  2048.             Case 57
  2049.                 AnsiPos 2, 4
  2050.                 Print "@X8BYou save someone's scrawny cat!"
  2051.                 AnsiPos 2, 6
  2052.                 Print "@X0B(You're NUTS if you think I'm gonna"
  2053.                 AnsiPos 2, 7
  2054.                 Print "give you victim credit for this!  ;)"
  2055.                 AnsiPos 2, 8
  2056.                 Print "@X09Stop wasting your medicine like that!"
  2057.                 INTEGER013 = INTEGER013 - 2
  2058.                 AnsiPos 10, 21
  2059.                 Wait
  2060.                 Goto LABEL014
  2061.             Case 58
  2062.                 AnsiPos 2, 4
  2063.                 Print "@X0EYou save the ICE CREAM MAN!"
  2064.                 AnsiPos 2, 5
  2065.                 Print "@X09I scream, you scream, we all scream"
  2066.                 AnsiPos 2, 6
  2067.                 Print "@X09for ice cream!!!"
  2068.                 AnsiPos 2, 8
  2069.                 Print "@X0BHe gives you four Banana Pops!"
  2070.                 INTEGER013 = INTEGER013 - 1
  2071.                 INTEGER023 = INTEGER023 - 1
  2072.                 AnsiPos 10, 21
  2073.                 Wait
  2074.                 Goto LABEL014
  2075.             Case 59
  2076.                 AnsiPos 2, 4
  2077.                 Print "@X0AYou save a smelly, dirty wino who farts"
  2078.                 AnsiPos 2, 5
  2079.                 Print "non-stop, smells like a brewery,"
  2080.                 AnsiPos 2, 6
  2081.                 Print "drools non-stop and rants about"
  2082.                 AnsiPos 2, 7
  2083.                 Print "the painted porcelain monkeys."
  2084.                 AnsiPos 2, 8
  2085.                 Print "@X0BYou feel sorry for him and give him"
  2086.                 AnsiPos 2, 9
  2087.                 Print "HALF your money. (Nice going!)"
  2088.                 INTEGER013 = INTEGER013 - 1
  2089.                 INTEGER011 = INTEGER011 / 2
  2090.                 INTEGER023 = INTEGER023 - 1
  2091.                 AnsiPos 10, 21
  2092.                 Wait
  2093.                 Goto LABEL014
  2094.             Case 60
  2095.                 AnsiPos 2, 4
  2096.                 Print "@X0BThis pharmacy has a shattered window"
  2097.                 AnsiPos 2, 5
  2098.                 Print "and the looters haven't found it yet."
  2099.                 AnsiPos 2, 7
  2100.                 Print "You reach inside and grab 5 medicines"
  2101.                 AnsiPos 2, 8
  2102.                 Print "@X0A. . . and a Sony Walkman!"
  2103.                 INTEGER013 = INTEGER013 + 5
  2104.                 AnsiPos 10, 21
  2105.                 Wait
  2106.                 Goto LABEL014
  2107.             Case 61
  2108.                 AnsiPos 2, 4
  2109.                 Print "@X0BThis victim, trapped beneath rubble, is"
  2110.                 AnsiPos 2, 5
  2111.                 Print "reading @X0ESECRET THINGS @X0Bby @X0EJim Coleman,"
  2112.                 AnsiPos 2, 6
  2113.                 Print "@X0Bwhile waiting to be rescued."
  2114.                 AnsiPos 2, 8
  2115.                 Print "@X0EWhat TOOK you so long???"
  2116.                 INTEGER013 = INTEGER013 - 1
  2117.                 INTEGER023 = INTEGER023 - 1
  2118.                 AnsiPos 10, 21
  2119.                 Wait
  2120.                 Goto LABEL014
  2121.         End Select
  2122.         Return
  2123.         :LABEL017
  2124.         INTEGER029 = 0
  2125.         If (BOOLEAN012 == 1) Then
  2126.             AnsiPos 2, 9
  2127.             Print "@X8ESorry, you only win once a day"
  2128.             Delay 15
  2129.             AnsiPos 2, 10
  2130.             Print "@X02But we'll still take your money! Haha!"
  2131.             Delay 15
  2132.             AdjTime -5
  2133.             INTEGER014 = 5
  2134.             AnsiPos 10, 21
  2135.             Wait
  2136.             Goto LABEL001
  2137.         Endif
  2138.         If ((INTEGER017 >= 7) && (STRING017 == STRING018)) Then
  2139.             AnsiPos 23, 11
  2140.             Print "@X40  ┌────────────────────────────@X4F┐  @X07"
  2141.             AnsiPos 23, 12
  2142.             Print "@X40  │@X4EThis is a heavy seismic risk@X4F│  @X08██@X07"
  2143.             AnsiPos 23, 13
  2144.             Print "@X40  │@X4Ezone.  @X4FSORRY, @X4Ewe're closed!!@X4F│  @X08██@X07"
  2145.             AnsiPos 23, 14
  2146.             Print "@X40  └@X4F────────────────────────────┘  @X08██@X07"
  2147.             AnsiPos 23, 15
  2148.             Print "                           @X08█████████@X07"
  2149.             AnsiPos 10, 21
  2150.             Wait
  2151.             Goto LABEL001
  2152.         Endif
  2153.         AnsiPos 2, 3
  2154.         Print "@X0EThis ticket will cost you FIVE MINUTES."
  2155.         AdjTime -5
  2156.         AnsiPos 2, 4
  2157.         Print "@X02You may win ONE TIME today."
  2158.         AnsiPos 2, 7
  2159.         Print "@X04Careful, this is a bad area of town."
  2160.         TINTEGER004(1) = Random(13)
  2161.         TINTEGER004(2) = Random(36)
  2162.         TINTEGER004(3) = Random(36)
  2163.         TINTEGER004(4) = Random(36)
  2164.         TINTEGER004(5) = Random(36)
  2165.         TINTEGER004(6) = Random(36)
  2166.         TINTEGER003(1) = Random(13)
  2167.         TINTEGER003(2) = Random(36)
  2168.         TINTEGER003(3) = Random(36)
  2169.         TINTEGER003(4) = Random(36)
  2170.         TINTEGER003(5) = Random(36)
  2171.         TINTEGER003(6) = Random(36)
  2172.         For INTEGER039 = 1 To 6
  2173.             For INTEGER038 = INTEGER039 To 6
  2174.                 If (TINTEGER004(INTEGER039) > TINTEGER004(INTEGER038)) Then
  2175.                     INTEGER022 = TINTEGER004(INTEGER039)
  2176.                     TINTEGER004(INTEGER039) = TINTEGER004(INTEGER038)
  2177.                     TINTEGER004(INTEGER038) = INTEGER022
  2178.                 Endif
  2179.             Next
  2180.         Next
  2181.         For INTEGER039 = 1 To 6
  2182.             For INTEGER038 = INTEGER039 To 6
  2183.                 If (TINTEGER003(INTEGER039) > TINTEGER003(INTEGER038)) Then
  2184.                     INTEGER022 = TINTEGER003(INTEGER039)
  2185.                     TINTEGER003(INTEGER039) = TINTEGER003(INTEGER038)
  2186.                     TINTEGER003(INTEGER038) = INTEGER022
  2187.                 Endif
  2188.             Next
  2189.         Next
  2190.         AnsiPos 2, 8
  2191.         Print "@X0FYour LOTTO numbers are:@X0F"
  2192.         Delay 10
  2193.         For INTEGER039 = 1 To 6
  2194.             AnsiPos 2, 9 + INTEGER039
  2195.             Print TINTEGER004(INTEGER039)
  2196.             Delay 10
  2197.         Next
  2198.         AnsiPos 6, 9
  2199.         Print "@X0EThe computer has selected:@X0E"
  2200.         Delay 10
  2201.         For INTEGER039 = 1 To 6
  2202.             AnsiPos 6, 9 + INTEGER039
  2203.             Print TINTEGER003(INTEGER039)
  2204.             Delay 10
  2205.         Next
  2206.         For INTEGER039 = 1 To 6
  2207.             For INTEGER038 = 1 To 6
  2208.                 If (TINTEGER004(INTEGER039) == TINTEGER003(INTEGER038)) Then
  2209.                     INTEGER029 = INTEGER029 + 1
  2210.                 Endif
  2211.             Next
  2212.         Next
  2213.         If (INTEGER029 == 0) Then
  2214.             AnsiPos 23, 11
  2215.             Print "@X20  ┌────────────────────────────@X2F┐  @X07"
  2216.             AnsiPos 23, 12
  2217.             Print "@X20  │@X21   Sorry, you win nothing   @X2F│  @X08██@X07"
  2218.             AnsiPos 23, 13
  2219.             Print "@X20  │@XAE    (snicker,  snicker!)    @X2F│  @X08██@X07"
  2220.             AnsiPos 23, 14
  2221.             Print "@X20  └@X2F────────────────────────────┘  @X08██@X07"
  2222.             AnsiPos 23, 15
  2223.             Print "                           @X08█████████@X07"
  2224.         Endif
  2225.         If (INTEGER029 >= 1) Goto LABEL018
  2226.         AnsiPos 10, 21
  2227.         Wait
  2228.         Goto LABEL001
  2229.         Return
  2230.         :LABEL018
  2231.         BOOLEAN012 = 1
  2232.         AnsiPos 23, 11
  2233.         Print "@X20  ┌────────────────────────────@X2F┐  @X07"
  2234.         AnsiPos 23, 12
  2235.         Print "@X20  │@X24   You matched @X21", INTEGER029, "@X24  numbers   @X2F│  @X08██@X07"
  2236.         AnsiPos 23, 13
  2237.         Print "@X20  │@XAE    in the SHAKER lotto!    @X2F│  @X08██@X07"
  2238.         AnsiPos 23, 14
  2239.         Print "@X20  └@X2F────────────────────────────┘  @X08██@X07"
  2240.         AnsiPos 23, 15
  2241.         Print "                           @X08█████████@X07"
  2242.         AnsiPos 10, 21
  2243.         Wait
  2244.         If (INTEGER029 == 1) Then
  2245.             INTEGER021 = INTEGER017 * 8 + 1000
  2246.             INTEGER011 = INTEGER011 + INTEGER021
  2247.             INTEGER012 = INTEGER012 + 100
  2248.             AdjTime +5
  2249.         Endif
  2250.         If (INTEGER029 == 2) Then
  2251.             INTEGER021 = INTEGER017 * 80 + 1150
  2252.             INTEGER011 = INTEGER011 + INTEGER021
  2253.             INTEGER012 = INTEGER012 + 200
  2254.             AdjTime +5
  2255.         Endif
  2256.         If (INTEGER029 == 3) Then
  2257.             INTEGER021 = INTEGER017 * 100 + 1200
  2258.             INTEGER011 = INTEGER011 + INTEGER021
  2259.             INTEGER012 = INTEGER012 + 300
  2260.             AdjTime +5
  2261.         Endif
  2262.         If (INTEGER029 == 4) Then
  2263.             INTEGER021 = INTEGER017 * 200 + 1250
  2264.             INTEGER011 = INTEGER011 + INTEGER021
  2265.             INTEGER012 = INTEGER012 + 400
  2266.             AdjTime +5
  2267.         Endif
  2268.         If (INTEGER029 == 5) Then
  2269.             INTEGER021 = INTEGER017 * 300 + 1350
  2270.             INTEGER011 = INTEGER011 + INTEGER021
  2271.             INTEGER012 = INTEGER012 + 500
  2272.             AdjTime +5
  2273.         Endif
  2274.         If (INTEGER029 == 6) Then
  2275.             INTEGER021 = INTEGER017 * 400 + 1500
  2276.             INTEGER011 = INTEGER011 + INTEGER021
  2277.             INTEGER012 = INTEGER012 + 600
  2278.             AdjTime +5
  2279.         Endif
  2280.         AnsiPos 12, 5
  2281.         Print "@X40┌────────────────────────@X43┐@X07"
  2282.         AnsiPos 12, 6
  2283.         Print "@X40│     @X4E╥  ┬ ╓──┐ ╥  ┬     @X43│@X07"
  2284.         AnsiPos 12, 7
  2285.         Print "@X40│     @X4E╙──┤ ║  │ ║  │     @X43│@X07"
  2286.         AnsiPos 12, 8
  2287.         Print "@X40│     @X4E╙──┘ ╙──┘ ╙──┘     @X43│@X07"
  2288.         AnsiPos 12, 9
  2289.         Print "@X40│     @X4E╥ ╥ ┬ ─╥─ ╓──┐     @X43│@X07"
  2290.         AnsiPos 12, 10
  2291.         Print "@X40│     @X4E║ ║ │  ║  ║  │     @X43│@X07"
  2292.         AnsiPos 12, 11
  2293.         Print "@X40│     @X4E╙─╨─┘ ─╨─ ╨  ┴     @X43│@X08██@X07"
  2294.         AnsiPos 12, 12
  2295.         Print "@X40│                        @X43│@X08██@X07"
  2296.         AnsiPos 12, 13
  2297.         Print "@X40│   @X4F Money:      @X4Ddollars @X43│@X08██@X07"
  2298.         AnsiPos 12, 14
  2299.         Print "@X40│   @X4FHealth: @XCB", INTEGER029 * 100, "  @X4Dpoints  @X43│@X08██@X07"
  2300.         AnsiPos 12, 15
  2301.         Print "@X40│                        @X43│@X07"
  2302.         AnsiPos 12, 16
  2303.         Print "@X40└@X43────────────────────────┘@X07"
  2304.         AnsiPos 24, 13
  2305.         Print "@XCB", INTEGER021, "@X07"
  2306.         AnsiPos 10, 21
  2307.         Wait
  2308.         Goto LABEL001
  2309.         :LABEL019
  2310.         INTEGER035 = 1
  2311.         INTEGER039 = 1
  2312.         STRING026 = "T"
  2313.         AnsiPos 2, 7
  2314.         Print "                          "
  2315.         AnsiPos 2, 3
  2316.         Print "@X0FWelcome to the MLP General Store"
  2317.         Delay 10
  2318.         If (INTEGER014 <= 10) Then
  2319.             AnsiPos 2, 8
  2320.             Print "@X0ENot experienced enough to handle medications."
  2321.             AnsiPos 10, 21
  2322.             Wait
  2323.             Goto LABEL001
  2324.         Endif
  2325.         If (INTEGER007 >= 46) Then
  2326.             Cls
  2327.             Newlines 5
  2328.             PrintLn "You can't purchase more than 45 medicine vials per game. Use the MLP Bank!"
  2329.             Newlines 5
  2330.             Wait
  2331.             Goto LABEL001
  2332.         Endif
  2333.         INTEGER016 = INTEGER023 - INTEGER013
  2334.         If (INTEGER013 >= INTEGER023) Then
  2335.             AnsiPos 2, 6
  2336.             PrintLn "@X0EWHAT ARE YOU TRYING TO DO? Hog it all?"
  2337.             AnsiPos 2, 7
  2338.             PrintLn "@X0ESupplies are TIGHT!  You don't need it!"
  2339.             AnsiPos 10, 21
  2340.             Wait
  2341.             Goto LABEL001
  2342.         Endif
  2343.         AnsiPos 2, 4
  2344.         Print "@X04A scruffy, scary lookin' guy saunters"
  2345.         AnsiPos 2, 5
  2346.         Print "up behind the counter."
  2347.         AnsiPos 2, 6
  2348.         Print "@X0BYou require @X0E"
  2349.         Print INTEGER016
  2350.         PrintLn " @X0Bvials of medicine."
  2351.         AnsiPos 2, 7
  2352.         InputStr "@X04Will you be paying with @X03(@X0ET@X03)@X04ime or @X03(@X0EC@X03)@X04ash?", STRING026, 12, 1, "TC", 2 + 4 + 8
  2353.         If (STRING026 == "") Goto LABEL001
  2354.         If (STRING026 == "T") Then
  2355.             INTEGER015 = INTEGER016 * 1
  2356.             INTEGER013 = INTEGER013 + INTEGER016
  2357.             AdjTime -INTEGER015
  2358.             AnsiPos 2, 8
  2359.             Print "@X0EYour @X0F"
  2360.             Print INTEGER016
  2361.             PrintLn " @X0Evials cost one minute each."
  2362.             AnsiPos 2, 9
  2363.             Print "@X0DWe've charged your account @X0F"
  2364.             Print INTEGER015
  2365.             PrintLn " @X0Dminutes."
  2366.             INTEGER035 = INTEGER016
  2367.             AnsiPos 10, 21
  2368.             Wait
  2369.         Endif
  2370.         If (STRING026 == "C") Then
  2371.             INTEGER039 = Random(4) + 1
  2372.             AnsiPos 2, 6
  2373.             Print "@X0FYou require @X0E"
  2374.             Print INTEGER016
  2375.             PrintLn " @X0Fof medicine today."
  2376.             AnsiPos 2, 8
  2377.             InputInt "@X1E  How many to purchase  @X07", INTEGER035, 30
  2378.             If (INTEGER035 == 0) Goto LABEL001
  2379.             If (INTEGER035 > 0) Then
  2380.                 If (INTEGER039 == 1) INTEGER009 = 20
  2381.                 If (INTEGER039 == 2) INTEGER009 = 30
  2382.                 If (INTEGER039 == 3) INTEGER009 = 50
  2383.                 If (INTEGER039 == 4) INTEGER009 = 75
  2384.                 If (INTEGER039 == 5) INTEGER009 = 90
  2385.             Endif
  2386.             INTEGER015 = INTEGER035 * INTEGER009
  2387.             If (INTEGER015 > INTEGER011) Then
  2388.                 AnsiPos 2, 9
  2389.                 PrintLn "@X8FYou can't afford that much!!!"
  2390.                 AnsiPos 10, 21
  2391.                 Wait
  2392.                 Goto LABEL001
  2393.             Endif
  2394.             INTEGER013 = INTEGER013 + INTEGER035
  2395.             INTEGER007 = INTEGER007 + INTEGER035
  2396.             INTEGER011 = INTEGER011 - INTEGER015
  2397.             AnsiPos 2, 9
  2398.             Print "@X02Your account has been charged @X0F"
  2399.             Print INTEGER015
  2400.             PrintLn " @X02dollars"
  2401.             AnsiPos 2, 10
  2402.             Print "@X02for @X0F"
  2403.             Print INTEGER035
  2404.             PrintLn " @X02vials of medicine. That breaks"
  2405.             AnsiPos 2, 11
  2406.             Print "@X02down to @X0F"
  2407.             Print INTEGER009
  2408.             Print " @X02dollars apiece."
  2409.             AnsiPos 2, 12
  2410.             PrintLn "@X0EPleasure doin' business. Watch out for looters!"
  2411.             AnsiPos 10, 21
  2412.             Wait
  2413.         Endif
  2414.         Goto LABEL001
  2415.         :LABEL020
  2416.         FOpen 1, PPEPath() + "WINNER.DAT", 2, 3
  2417.         FPut 1, "                                                   "
  2418.         Frewind 1
  2419.         FPutLn 1, STRING027
  2420.         FClose 1
  2421.         Delete PPEPath() + "SHAKER.DAT"
  2422.         DispFile PPEPath() + "SHAKEWIN", 0
  2423.         Stop
  2424.         :LABEL021
  2425.         If (BOOLEAN005 == 1) Then
  2426.             FOpen 1, PPEPath() + "SHAKER.DAT", 2, 3
  2427.             FGet 1, INTEGER020
  2428.             Inc INTEGER020
  2429.             Frewind 1
  2430.             FPutLn 1, INTEGER020
  2431.         Endif
  2432.         FClose 1
  2433.         FOpen 1, PPEPath() + "SHAKER.DAT", 2, 3
  2434.         FGet 1, INTEGER020
  2435.         For INTEGER033 = 1 To INTEGER020
  2436.             FGet 1, STRING030
  2437.             If (InStr(STRING030, STRING027)) Then
  2438.                 INTEGER039 = INTEGER033
  2439.                 FClose 1
  2440.                 FOpen 1, PPEPath() + "SHAKER.DAT", 2, 3
  2441.                 FGet 1, INTEGER020
  2442.                 For INTEGER033 = 1 To INTEGER039 - 1
  2443.                     FGet 1, STRING030
  2444.                 Next
  2445.                 FPutPad 1, INTEGER005, -8
  2446.                 FPutPad 1, STRING028, 10
  2447.                 FPutPad 1, STRING017, 15
  2448.                 FPutPad 1, INTEGER014, 6
  2449.                 FPutPad 1, INTEGER012, 6
  2450.                 FPutPad 1, INTEGER013, 6
  2451.                 FPutPad 1, INTEGER011, 6
  2452.                 FPutPad 1, INTEGER026, 6
  2453.                 FPutPad 1, INTEGER027, 6
  2454.                 FPutPad 1, INTEGER028, 6
  2455.                 FClose 1
  2456.             Endif
  2457.         Next
  2458.         FClose 1
  2459.         If (BOOLEAN005 == 1) Then
  2460.             FAppend 1, PPEPath() + "SHAKER.DAT", 2, 3
  2461.             FPutPad 1, INTEGER005, -8
  2462.             FPutPad 1, STRING028, 10
  2463.             FPutPad 1, STRING017, 15
  2464.             FPutPad 1, INTEGER014, 6
  2465.             FPutPad 1, INTEGER012, 6
  2466.             FPutPad 1, INTEGER013, 6
  2467.             FPutPad 1, INTEGER011, 6
  2468.             FPutPad 1, INTEGER026, 6
  2469.             FPutPad 1, INTEGER027, 6
  2470.             FPutPad 1, INTEGER028, 6
  2471.             FPutPad 1, STRING027, 29
  2472.             FPutLn 1
  2473.             FClose 1
  2474.         Endif
  2475.         Return
  2476.         :LABEL022
  2477.         If (INTEGER005 >= INTEGER001) Goto LABEL020
  2478.         FOpen 4, PPEPath() + "WINNER.DAT", 2, 3
  2479.         FGet 4, STRING033
  2480.         FClose 4
  2481.         FOpen 1, PPEPath() + "SHAKER.DAT", 2, 3
  2482.         FGet 1, INTEGER020
  2483.         For INTEGER033 = 1 To INTEGER020
  2484.             FGet 1, STRING020
  2485.             Tokenize STRING020
  2486.             GetToken INTEGER025
  2487.             TINTEGER024(INTEGER033) = ToInt(INTEGER025)
  2488.             TSTRING031(INTEGER033) = STRING020
  2489.         Next
  2490.         FClose 1
  2491.         For INTEGER033 = 1 To INTEGER020
  2492.             For INTEGER034 = 1 To INTEGER033
  2493.                 If (TINTEGER024(INTEGER033) > TINTEGER024(INTEGER034)) Then
  2494.                     INTEGER006 = TINTEGER024(INTEGER033)
  2495.                     TINTEGER024(INTEGER033) = TINTEGER024(INTEGER034)
  2496.                     TINTEGER024(INTEGER034) = INTEGER006
  2497.                     STRING021 = TSTRING031(INTEGER033)
  2498.                     TSTRING031(INTEGER033) = TSTRING031(INTEGER034)
  2499.                     TSTRING031(INTEGER034) = STRING021
  2500.                 Endif
  2501.             Next
  2502.         Next
  2503.         PrintLn "@CLS@"
  2504.         AnsiPos 1, 4
  2505.         PrintLn "@X20┌───────────────────────────────────────────────────────────────────────────@X2F┐@X07"
  2506.         PrintLn "@X20│                    @X2ETop Scorers in Jim Coleman's @XAESHAKER!                   @X2F│@X07"
  2507.         PrintLn "@X20│                    @X21Last Winner:                                           @X2F│@X07"
  2508.         PrintLn "@X20└@X2F───────────────────────────────────────────────────────────────────────────┘@X07"
  2509.         Print "@X0F                   "
  2510.         Print INTEGER001
  2511.         PrintLn "@X02 Points wins this round of @X0FSHAKER!"
  2512.         AnsiPos 40, 6
  2513.         Print "@X2F" + STRING033
  2514.         Newlines 2
  2515.         For INTEGER033 = 1 To INTEGER020
  2516.             Tokenize TSTRING031(INTEGER033)
  2517.             GetToken STRING022
  2518.             GetToken STRING023
  2519.             GetToken STRING024
  2520.             For INTEGER034 = 1 To 7
  2521.                 GetToken STRING020
  2522.             Next
  2523.             STRING025 = ""
  2524.             GetToken STRING020
  2525.             While (STRING020 <> "") Do
  2526.                 STRING025 = STRING025 + " " + STRING020
  2527.                 GetToken STRING020
  2528.             EndWhile
  2529.             AnsiPos 5, 9 + INTEGER033
  2530.             Print "@X0E" + STRING022
  2531.             AnsiPos 11, 9 + INTEGER033
  2532.             Print "@X0F" + STRING025
  2533.             AnsiPos 44, 9 + INTEGER033
  2534.             Print "@X02" + STRING023
  2535.             AnsiPos 54, 9 + INTEGER033
  2536.             Print "@X0D" + STRING024
  2537.         Next
  2538.         Newlines 2
  2539.         Wait
  2540.         Return
  2541.         :LABEL023
  2542.         Gosub LABEL010
  2543.         Log "**** " + STRING027 + " GOT KILLED IN SHAKER! HAHAHA!!!", 0
  2544.         INTEGER029 = Random(7) + 1
  2545.         If (INTEGER029 == 1) STRING019 = "@X0Eof massive heart failure."
  2546.         If (INTEGER029 == 2) STRING019 = "@X0Dwhen a building fell on you."
  2547.         If (INTEGER029 == 3) STRING019 = "@X05a victim shot you!"
  2548.         If (INTEGER029 == 4) STRING019 = "@X04You should have changed careers."
  2549.         If (INTEGER029 == 5) STRING019 = "@X09from exposure."
  2550.         If (INTEGER029 == 6) STRING019 = "@X0Fswallowed whole by a ground fissure."
  2551.         If (INTEGER029 == 7) STRING019 = "@X1E You were--unfortunately--Thud Rootered... @X07"
  2552.         If (INTEGER029 == 8) STRING019 = "@X09when you accidentally shot yourself."
  2553.         INTEGER026 = 0
  2554.         INTEGER027 = 0
  2555.         INTEGER011 = INTEGER011 / 2
  2556.         AnsiPos 2, 6
  2557.         Print "@X0FSorry, you died"
  2558.         AnsiPos 2, 7
  2559.         Print STRING019
  2560.         AnsiPos 10, 21
  2561.         Wait
  2562.         Goto LABEL025
  2563.         Return
  2564.         :LABEL024
  2565.         If (BOOLEAN008 == 0) INTEGER023 = 12
  2566.         If (BOOLEAN010 == 0) Then
  2567.             PrintLn "@CLS@"
  2568.             AnsiPos 2, 4
  2569.             PrintLn "@X0EYou did NOT find all the victims!"
  2570.             AnsiPos 2, 5
  2571.             Print "@X0AThere are still "
  2572.             Print "@X0B" + INTEGER023
  2573.             PrintLn "@X0A remaining!"
  2574.             AnsiPos 2, 7
  2575.             InputYN "@X0EGo back and help some more victims  @X0DY/N", STRING002, 12
  2576.             If (STRING002 == "Y") Then
  2577.                 If (BOOLEAN008 == 0) INTEGER023 = 0
  2578.                 Goto LABEL001
  2579.             Endif
  2580.             If (STRING002 == "") Goto LABEL024
  2581.             If (STRING002 == "N") Then
  2582.                 AnsiPos 2, 10
  2583.                 PrintLn "@X0EYou are heavily fined for leaving helpless people behind!"
  2584.                 INTEGER011 = INTEGER011 / 2
  2585.                 INTEGER026 = INTEGER026 / 2
  2586.                 INTEGER013 = 0
  2587.                 Newlines 3
  2588.                 Wait
  2589.             Endif
  2590.         Else
  2591.             If (BOOLEAN010 == 1) Goto LABEL025
  2592.         Endif
  2593.     Endif
  2594.     :LABEL025
  2595.     Gosub LABEL021
  2596.     Gosub LABEL022
  2597.     BOOLEAN006 = 1
  2598.     Cls
  2599.     Newlines 5
  2600.     PrintLn "@X0D   Bye from @X0FThe NASA MLP, @X0EHOME @X0Dof the @X0FCASINO, QUAKE @X0D& @X0FSHAKER @X0Ddoors@X0E!"
  2601.     If (BOOLEAN001 == 0) Then
  2602.         Newlines 2
  2603.         PrintLn "   @X0FThe NASA MLP BBS of Port Orchard, WA      (206)871-3965, (206)871-8089"
  2604.         PrintLn "   @X0APlease help your hard-working SysOp register this fine game! Only $10!"
  2605.         PrintLn "   @X0DREGISTERING  SHAKER  means you don't have to LOOK at all these dots!!!"
  2606.         Print "   "
  2607.         For INTEGER029 = 1 To 75
  2608.             Print "@X0E."
  2609.             Delay 2
  2610.         Next
  2611.     Endif
  2612.     End
  2613.  
  2614. ;------------------------------------------------------------------------------
  2615. ;
  2616. ; Usage report (before postprocessing)
  2617. ;
  2618. ; ■ Statements used :
  2619. ;
  2620. ;    1       End
  2621. ;    6       Cls
  2622. ;    126     Wait
  2623. ;    529     Goto 
  2624. ;    524     Let 
  2625. ;    491     Print 
  2626. ;    71      PrintLn 
  2627. ;    295     If 
  2628. ;    19      DispFile 
  2629. ;    1       FCreate 
  2630. ;    8       FOpen 
  2631. ;    1       FAppend 
  2632. ;    11      FClose 
  2633. ;    21      FGet 
  2634. ;    1       FPut 
  2635. ;    4       FPutLn 
  2636. ;    21      FPutPad 
  2637. ;    1       GetUser
  2638. ;    1       Delete 
  2639. ;    13      AdjTime 
  2640. ;    1       Log 
  2641. ;    7       InputStr 
  2642. ;    2       InputYN 
  2643. ;    5       InputInt 
  2644. ;    8       Gosub 
  2645. ;    15      Return
  2646. ;    13      Delay 
  2647. ;    1       Inc 
  2648. ;    19      Newlines 
  2649. ;    3       Tokenize 
  2650. ;    17      GetToken 
  2651. ;    1       Stop
  2652. ;    1       RdUNet 
  2653. ;    1       WrUNet 
  2654. ;    546     AnsiPos 
  2655. ;    2       Frewind 
  2656. ;    3       Redim 
  2657. ;
  2658. ;
  2659. ; ■ Functions used :
  2660. ;
  2661. ;    8       +
  2662. ;    7       -
  2663. ;    29      *
  2664. ;    44      /
  2665. ;    193     +
  2666. ;    102     -
  2667. ;    237     ==
  2668. ;    2       <>
  2669. ;    21      <
  2670. ;    36      <=
  2671. ;    10      >
  2672. ;    49      >=
  2673. ;    230     !
  2674. ;    44      &&
  2675. ;    19      ||
  2676. ;    1       Chr()
  2677. ;    2       InStr()
  2678. ;    23      Random()
  2679. ;    1       Date()
  2680. ;    1       U_Name()
  2681. ;    31      PPEPath()
  2682. ;    2       PcbNode()
  2683. ;    1       UN_Stat()
  2684. ;    1       UN_Name()
  2685. ;    1       UN_City()
  2686. ;    1       Exist()
  2687. ;    1       AnsiOn()
  2688. ;    1       ToInt()
  2689. ;
  2690. ;------------------------------------------------------------------------------
  2691. ;
  2692. ; Analysis flags : A
  2693. ;
  2694. ; A - Adjust online time remaining ■ 5
  2695. ;     Program modify the amount of online time remaining, this may
  2696. ;     be a way to bypass time limits
  2697. ;     ■ Search for : ADJTIME
  2698. ;
  2699. ;------------------------------------------------------------------------------
  2700. ;
  2701. ; Postprocessing report
  2702. ;
  2703. ;    19      For/Next
  2704. ;    1       While/EndWhile
  2705. ;    98      If/Then or If/Then/Else
  2706. ;    13      Select Case
  2707. ;
  2708. ;------------------------------------------------------------------------------
  2709. ;                 AEGiS Corp - Break the routines, code against the machines!
  2710. ;------------------------------------------------------------------------------
  2711.